var
ch: array[1..100] of real;
i, n: integer;
s: real;
begin
repeat
inc(i); //+1
write($'введите {i} число: ');
readln(ch[i]); //записываем в массив число
until ch[i] = 0; //проверяется условие,если число равно 0 то прекращаем ввод
write($'введите,сколько чисел сложить: ');
readln(n);
writeln;
writeln($'вы ввели {i} чисел');
for i : = 1 to n do
begin
s : = ch[i] + s; //складываем числа n штук
end;
writeln($'сумма чисел = {s}');
end.
Поделитесь своими знаниями, ответьте на вопрос: