Вычисление суммы N чисел: использование новых возможностей
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
var
N: integer;
sum: real;
begin
write('Введите количество чисел: ');
readln(N);
write('Введите числа: ');
sum := 0;
for var i := 1 to N do
begin
var x: real;
read(x);
sum += x;
end;
writeln('Сумма введенных чисел = ',sum);
end.