Question

- СРОЧНО-

- ОЧЕНЬ БЛАГОДАРНА БУДУ____))))

Разработать схему алгоритма, который запрашивает N произведений целых чисел и ищет их сумму , число N вводится ч клавиатуры. (где) S-cумма ; K- первое число; M-последнее число; i-счетчик

Answer 1

Program task1;
var n, S, k, i: integer;
begin
write('Кол-во чисел = ');
readln(n);
S := 0;
For i := 1 to n do
begin
write('Введите число ');
readln(k);
S := S + k
end;
writeln('Сумма введенных произвольных чисел = ', s);
end.