Ввод массива с клавиатуры.

Ввести массив с клавиатуры- это значит ввести каждый его элемент. Рассмотрим ввод одномерного массива А, размер которого равен n. В общем виде массив можно записать следующим образом:

А(a[1],a[2],a[3],…a[n])

Алгоритм ввода одномерного массива можно записать так:

1. Запросить ввод первого элемента. Ввести первый элемент.

2. Запросить ввод второго элемента. Ввести второй элемент.

. . . . . .

n. Запросить ввод n-го элемента. Ввести его.

Данный алгоритм не удобен и рациональнее преобразовать его в следующий:

Для i:=1 до n повторять

Нач

Вывод(‘введите a[’,i,’]’);

Ввод(a[i]);

Кон;

На Turbo Pascal он будет выглядеть следующим образом

Var a: array [1..n] of integer;

I: integer;

. . . . . .

{алгоритм ввода одномерного массива}

For i:=1 to n do

Begin

Writeln(‘введите а[’,I,’]’);

Readln(a[i]);

End;

Аналогичным образом запишется алгоритм ввода двумерного массива:

Var a: array [1..n,1..m] of real;

I,j: integer;

. . . . . .

{алгоритм ввода двумерного массива}

For i:=1 to n do

For j:=1 to n do

Begin

Writeln(‘введите а[’,i,’,’,j,’]’);

Readln(a[i,j]);

End;