Question

вывести сумму пяти введенных с клавиатуры чисел использовать цикл for

Answer 1

vara,k,s:integer;Begins:=0;for k:=1 to 5 dobeginreadln(a);s:=s+a;end;writeln(s);end.

Answer 2

var
a,k,s:integer;
Begin
s:=0;
for k:=1 to 5 do
begin
readln(a);
s:=s+a;
end;
writeln(s);
end.