Найдите ошибки заполните пустые места 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; 
   i,N: integer; // Количество элементов в массиве 
begin 
   writeln('Введите количество элементов в массиве: '); 
   readln(N); 
   write('Введите элементы массива: '); 
   for i:=1 to N do 
     read(a[i]); 
   write('Вывод элементов массива: '); 
   for i:=1 to N do 
   write(a[i],' ');
end.

Vara: array [1..100] of integer; N: integer; // Количество элементов в массиве i: integer; begin writeln('Введите количество элементов в массиве: '); readln(N); write('Введите элементы массива: '); for i:=1 to N do read(a[i]); write('Вывод элементов массива: '); for i:=1 to N do write(a[i],' ');end.

проверил на паскале, работает