С клавиатуры вводятся целые числа. Количество чисел заранее не известно. Ввод чисел оканчивается нулем.
Найти среднее арифметическое введенных чисел.
(нужна программа на языке Pascal)
kristinasotsen
1
28.09.2020 12:51
0
Другие вопросы по теме Информатика
адам121
18.04.2020 10:44
ванюшаплай
18.04.2020 10:45
antonkovalenko1
28.04.2020 16:00
Aleksandra19771
28.05.2019 13:50
Kseniapinzari12
28.05.2019 12:27
ТвойВраг
28.05.2019 12:21
osmaginh77
28.05.2019 12:15
aliosha1337
28.11.2020 16:07
mishac1470
28.11.2020 16:07
Популярные вопросы
- Трое задумали по двузначному числу. затем каждые двое сыграли в такую игру:...
1 - Ұзындығы 4 см болатын ав кесіндісін сыз. кесіндінің бойына о нүктесін белгіле....
2 - Нужна интересные факты о пандах или составить прект про панд по 2 класс что...
3 - Нужно написать сочинение 15.3 по варианту 33 преданность (огэ по 2018,по г.н.троепольскому,...
1 - Можно ли доверять человеку который вас обманул?...
3 - Составте уровение реакций соединения: mn? o? + o? =mn? o? , al? + o? = al? o?...
2 - ⬇какое время вы бы выбрали при переводе следующих предложений? 1.я пью чай по...
2 - Выписаны первые несколько чисел прогрессии -384 -96 -24 найдите сумму пяти её...
3 - 6. напишите целые числа на координатной прямой, которые лежат между числами:...
1 - Склавиатуры вводят целое число.если оно положительное-увеличить его пять раз...
3
program sapch;
uses
crt;
var
k, s, c: integer;
var
sr: real;
begin
s := 0;
c := 0;
k := 1;
while k <> 0 do
begin
readln(k);
s := s + k;
c := c + 1;
end;
writeln;
sr := s / c;
writeln(sr);
readln;
end.