ПАСКАЛЬ ДАЮ 45 БАЛЛОВ.Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти среднее арифметическое чисел этой последовательности. Ноль числом последовательности не считается.
ФОРМАТЫ ВХОДНЫХ ДАННЫХ:
Вводится не более, чем 2 в 15 степени целых чисел, каждое из которых не превосходит по модулю (2в 15 степени − 1). После последнего числа вводится 0. Гарантируется, что последовательность не пустая.
Форматы выходных данных:
Требуется вывести одно число — искомое среднее арифметическое. Результат целочисленно округлите вниз.
Ответы
Ответ дал:
0
var a,s,k:integer;
begin
writeln('Вводите числа:');
readln(a);
s:=0; k:=0;
while a<>0 do
begin
k:=k+1;
s:=s+a;
readln(a);
end;
writeln('Среднее арифметическое = ',trunc(s/k));
end.
Пример:
Вводите числа:
5
3
9
4
7
0
Среднее арифметическое = 5
begin
writeln('Вводите числа:');
readln(a);
s:=0; k:=0;
while a<>0 do
begin
k:=k+1;
s:=s+a;
readln(a);
end;
writeln('Среднее арифметическое = ',trunc(s/k));
end.
Пример:
Вводите числа:
5
3
9
4
7
0
Среднее арифметическое = 5
Ответ дал:
0
Спасибо!!!!
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад