Сделать кусочек программы.
вычеслить количество элементов, больше среднего арифметического значения элементов массива.

lexalarionov11 lexalarionov11    3   08.11.2019 08:20    0

Ответы
borronwolf borronwolf  10.10.2020 12:02

Если нужно на Pascal, который учат в школе, то вот:

const N = 10;

var

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

i: byte;

sred: real;

suma: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do suma := sum + a[i];

sred := suma/N;

for i:=1 to N do write(a[i]:3);

writeln;

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

for i:=1 to N do if a[i]>sred then write(a[i]:3);

writeln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика