Информатика

Рима

17 ноября, 17:19

Найдите ошибки заполните пустые места

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],' ') ;