В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.
В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.
Гость
Ответ(ы) на вопрос:
ГостьCONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;
begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
end;
x:=x/i;
for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');
end.
Не нашли ответ?
Похожие вопросы