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

Question

Информатика

Малина

30 марта, 02:20

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

+3

Ответы (1)

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

Галюся · Answer 1

Var

a : array[0 ... 9] of integer;

i, k : integer;

s : real;

Begin

s : = 0;

k : = 0;

randomize;

for i : = 0 to 9 do begin

a[i] : = random (20) ;

Write (a[i], ' ') ;

s : = s + a[i];

end;

s : = s / 10;

For i : = 0 to 9 do

if a[i] > s then

inc (k) ;

Writeln () ;

Writeln (k) ;

End.