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

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.