Афиноген
5 год назад
С клавиатуры вводятся целые числа. Количество чисел заранее не известно. Ввод чисел оканчивается нулем.Найти среднее арифметическое введенных чисел. (нужна программа на языке Pascal)
ОТВЕТЫ
Pahom
Oct 24, 2020
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.
917
