Найти ошибки в программе и заполнить пропуски (на месте … вставить необходимые слова) var a: … [1..100] of integer; N: integer; // Количество элементов в массиве i: real; begin …('Введите количество элементов в массиве: '); readln(N); write('Введите элементы массива: '); … i:=1 to N do read(a[i]); write('Вывод элементов массива: '); for i:=1 to N do write(a[i],' ');
var a: array [1..100] of integer; N: integer; // Количество элементов в массиве i: integer; begin write('Введите количество элементов в массиве: '); readln(N); write('Введите элементы массива: '); for i:=1 to N do read(a[i]); write('Вывод элементов массива: '); for i:=1 to N do write(a[i],' ');
var
a: array [1..100] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');