Question

Программист торопился и допустил ошибки. Исправьте их. ПОМОГИТЕ ПОЖАЛУЙСТА! ДАМ 33 БАЛЛА

Program n6_250;

Const n=10;

var a: array [1…n] integer;



begin

s:=0

for i:=1 to n do readln(a);

for i:=1 to n do

if i>a then s:=s+a;

write (s);

end.

Answer 1

Ответ:

Program n6_250;

Const n=10;

var a: array [1..n] of integer;

s, i: Integer;

begin

s:=0;

for i:=1 to n do

begin

readln(a[i]);

if i>a[i] then s:=s+a[i];

end;

write (s);

end.