Question

Вычислить сумму N целых чисел, вводимых с клавиатуры
Program P1;
const n=5;
var x,i,s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(x);
s:=s+x;
end;
writeln(’Сумма равна ’,s);
end.

Answer 1

Ответ:

Код исправленной программы прикреплен во вложении.

Результат: Сумма равна 2639

Если чисел будет 10, нужно изменить значение константы n на 10. Во второй строке:

const n=10;