Представлена программа: var a : array [1..100] of integer; i : integer; begin read (a); for i: =1 to 100 do writeln (a[i]); end. содержит ли программа ошибку? если да, то опишите эту ошибку и что в программе нужно изменить.

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.

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