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

Question

Информатика

Руся

2 мая, 13:07

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

+4

Ответы (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.