В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад