создать массив а из десяти целых чисел, принадлежащих промежутку [0; 20). вывести полученный массив на экран. вычислить количество элементов массива, значения которых превышают средне арифметическое значений его элементов

Question

Информатика

Амельян

17 ноября, 17:15

создать массив а из десяти целых чисел, принадлежащих промежутку [0; 20). вывести полученный массив на экран. вычислить количество элементов массива, значения которых превышают средне арифметическое значений его элементов

+5

Ответы (1)

Знаете ответ на вопрос?

Амата · Answer 1

Var a:array[1 ... 10] of integer; i, k:integer; q:real;

begin

for i:=1 to 10 do begin

a[i]:=random (20) ;

writeln (a[i]) ;

q:=q+a[i];

end;

q:=q/10;

for i:=1 to 10 do

if a[i]>q then inc (k) ;

writeln ('Чисел превышающих среднее: ', k) ;

end.