Question

Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(a[i]);
k:=k+a[i];
writeln(a[i] '+');
write(k);
end.
Где ошибка?!

Answer 1

Ты не указал переменную "а[i]"

Answer 2

Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.