Дан массив А из 10 элементов вывести все элементы значение которых превосходит среднего арифметического элементов массива

Question

Информатика

Дарюха

5 апреля, 01:50

Дан массив А из 10 элементов вывести все элементы значение которых превосходит среднего арифметического элементов массива

+5

Ответы (1)

Знаешь ответ?

Муся · Answer 1

Var

i:integer;

sr:real;

a:array[1 ... 10]of integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (10);

write (a[i],' ');

sr:=sr+a[i];

end;

writeln;

sr:=sr/10;

writeln ('Среднее значение: ', sr);

for i:=1 to 10 do if a[i]>sr then write (a[i],' ');

end.