Написать программу ввода целых чисел до тех пор, пока не будет введен ноль, посчитать сумму введеных чисел и их среднее арифметическое. !
KADANCHUK
3
19.05.2019 21:40
0
Другие вопросы по теме Информатика
bearwithsphere
18.11.2020 15:47
Filip1is
20.08.2019 15:40
Lena3411
02.02.2021 14:35
Гелакси27
02.02.2021 14:35
777кошка777
02.02.2021 14:35
валя20063
02.02.2021 14:35
oihgoilk
02.02.2021 14:35
Diiankkk
02.02.2021 14:35
Популярные вопросы
- Нужно сделать синтаксический разбор предложения популярные книги перечеркивают...
3 - Проверочное слово к слову красивый . проверить букву а ....
3 - Сравните числа -7,6 и -7,06; -5,3 и 5,2 ; -6/7 и - 3/4 завтра контрольная...
3 - 2x(x-8)=(x+1)(2x-3) найдите корень уравнения...
1 - Расположите числа в порядке убывания cos 2,7; cos 0,8; cos(-0,5); cos 4,1:...
3 - Сочинение по как я путешествовал на воздушном шаре...
3 - Втреугольнике abc дано: ab=21 см, угол a равен 45 градусов, угол c равен 30...
1 - Как решить ? иван и саша вырезали из белой бумаги четыре ёлочки разных размеров....
2 - Как пишется? таящее мороженое или тающее мороженое?...
1 - 450 увеличить на 16 на сколько 660 больше, чем 160? разность чисел 750 и 340....
2
var sum,n,temp:integer;
begin
sum:=0;
n:=0;
readln(temp);
while(temp<>0) do begin
inc(n);
sum:=sum+temp;
readln(temp);
end;
writeln('Sum = ',sum,'; Ave = ',sum/n)
end.