исправить ошибку
var i,n:real;
a:array[1..n ] of integer;
begin
write('Введите количество элементов n=');
read(n);
for i:=1 to n do readln(a[i]);

for i:=1 to n do
writeln ('a[',i,']=',a[i];
end.

​

drevnyakd    2   22.01.2021 14:15    1