исправьте ошибки

[rwrwrw]

program a1;
var n,a:array [1..n] of real;
i,s,v: integer;
BEGIN
writeln ('введите число а');
read (a);
writeln ('введите число n');
read (n);
s:=0;
for i:=1 to n do
begin
writeln ('введите число ['i,']=');
read (v);
if v>a then s:=s+v;
end;
writeln ('сумма=',s);
readln;
END.
rwrwrw на форуме Добавить отзыв для rwrwrw Пожаловаться на это сообщение Ответить с цитированием

[Alar]

название темы!