С клавиатуры вводится 10 произвольных чисел.Составить блок-схему и программу определения...

Question

С клавиатуры вводится 10 произвольных чисел.Составить блок-схему и программу определения суммы всех вводимых чисел.

Answer 1

Var a,k,c:integer;
begin
c:=0;
for k:=1 to 10 do begin
read(a); c:=c+a; end;
end.