Question

Представлена программа:

Var
a : array [1..100] of integer;
i : integer;
Begin
read (a);
for i:=1 to 100 do
writeln (a[i]);
End.

Содержит ли программа ошибку? Если да, то опишите эту ошибку и что в программе нужно изменить.

Answer 1

Var a: array [1..100] of integer;
    i: integer;
Begin
     for i := 1 to 100 do read(a[i]);
     for i:=1 to 100 do writeln (a[i]);
End.

Массив нужно заполнять в цикле, поэлементно :)