Предмет: Информатика, автор: duska99

Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.

Ответы

Автор ответа: NikSmiler
0
Программа на Pascal ABC:
Приложения:
Автор ответа: NikSmiler
0
var s,a,i: integer;
begin
cls;
repeat
readln(a);
if a <> 0 then begin
s:=s+a;
i:=i+1;
end;
until a=0;
writeln('Ñóììà: ',s);
writeln('Ñðåäíåå: 's/i);
end.
Автор ответа: NikSmiler
0
это текстом
Автор ответа: NikSmiler
0
Я тут запятую забыл (12 строчка): writeln('Среднее: ', s/i);
Похожие вопросы
Предмет: Математика, автор: Аноним