Написать программу ввода целых чисел до тех пор, пока не будет ...
Написать программу ввода целых чисел до тех пор, пока не будет введен ноль, посчитать сумму введеных чисел и их среднее арифметическое. помогите пожалуйста!
Есть ответ
12.12.2022
221
Ответ
var sum,n,temp:integer;
begin
sum:=0;
n:=0;
readln(temp);
while(temp0) do begin
inc(n);
sum:=sum+temp;
readln(temp);
end;
writeln('Sum = ',sum,'; Ave = ',sum/n)
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022