Написать программу, которая вычисляет среднее арифметическое вводимой с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы. (цикл для)(паскаль )
Ответы
Ответ дал:
0
var
i, count : integer;
summ, temp : real;
begin
summ := 0;
readln(count);
for i := 1 to count do
begin
readln(temp);
summ := summ + temp;
end;
writeln(summ / count);
end.
i, count : integer;
summ, temp : real;
begin
summ := 0;
readln(count);
for i := 1 to count do
begin
readln(temp);
summ := summ + temp;
end;
writeln(summ / count);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад