Дан одномерный массив. Найти среднее арифметическое его элементов. Вывести ** экран...

0 голосов
148 просмотров

Дан одномерный массив. Найти среднее арифметическое его элементов. Вывести на экран только те элементы массива, которые больше найденного среднего арифметического.ПОМОГИТЕ!!!!!!!


Информатика (28 баллов) | 148 просмотров
0

какой язык программирования?

Дан 1 ответ
0 голосов

Написал на паскале


const N = 12;

var i, sum:integer;

   average:real;

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

begin

for i:=1 to N do begin

 A[i]:=random(101);

 sum:=A[i]+sum;

 write(A[i], ' ');

end;

writeln();

average:=sum/N;

for i:=1 to N do begin

 if A[i] > average then

  writeln(A[i]);

end;

end.

(140 баллов)