Question

Используя цикл For вычислить сумму 7-ми произвольных чисел, введенных с клавиатуры.Составить для паскаль.Помогите пожалуйста.Буду очень благодарна

Answer 1

Program DZ;
var i: longint; 
  x,s:real;
begin
  s:=0;
  for i:=1 to 7 do
    begin
       read (x);
       s:=s+x;
    end;
  write (s);
end.