Почему программа не работает (Pascal)

Program abc;

Var A, B: array [1 ... 5] of integer;

i:integer;

begin

For i : = 1 to 5 do begin

writeln ('введите A') ;

readln (A[i]) ;

writeln ('Введите B') ;

readln (B[i]) ;

writeln (A[1]+B[1]) ;

writeln (A[2]+B[2]) ;

writeln (A[3]+B[3]) ;

writeln (A[4]+B[4]) ;

writeln (A[5]+B[5]) ;

end.

Question

Информатика

Камилка

23 августа, 12:19

Почему программа не работает (Pascal)

Program abc;

Var A, B: array [1 ... 5] of integer;

i:integer;

begin

For i : = 1 to 5 do begin

writeln ('введите A') ;

readln (A[i]) ;

writeln ('Введите B') ;

readln (B[i]) ;

writeln (A[1]+B[1]) ;

writeln (A[2]+B[2]) ;

writeln (A[3]+B[3]) ;

writeln (A[4]+B[4]) ;

writeln (A[5]+B[5]) ;

end.

+4

Ответы (1)

Знаете ответ на вопрос?

Авдоша · Answer 1

В программе не хватает end;

Program abc;

Var A, B: array [1 ... 5] of integer;

i:integer;

begin

For i : = 1 to 5 do begin

writeln ('введите A') ;

readln (A[i]) ;

writeln ('Введите B') ;

readln (B[i]) ;

end;

writeln (A[1]+B[1]) ;

writeln (A[2]+B[2]) ;

writeln (A[3]+B[3]) ;

writeln (A[4]+B[4]) ;

writeln (A[5]+B[5]) ;

end.