Question

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

Answer 1

Var
a: array [1..10] of integer;
i, k: integer;
s: real;
Begin
for i:=1 to 10 do
a[i]:=random(20);
write('Массив: ');
for i:=1 to 10 do
write(a[i], ', ');
writeln;
s:=0;
for i:=1 to 10 do
s:=s+a[i];
s:=s/10;
writeln('СА чисел: ', s);
k:=0;
for i:=1 to 10 do
if a[i] > s then
k:=k+1;
write('Кол-во элементов массива, превышающих СА: ', k);
end.

***

Примерный вывод:
Массив: 9, 1, 4, 16, 19, 14, 16, 6, 11, 16,
СА чисел: 11.2
Кол-во элементов массива, превышающих СА:5