ПАСКАЛЬ АВС .МАССИВЫ.
сформировать целочисленный массив из 15 элементов произвольных чисел .вывести отдельно элементы исходного массива ,превышающие его среднее арифметическое .

Uses crt;
var a:array [1..15] of integer;
    x,sum:integer;
    sr:real;
begin
     randomize;
     sum:=0;
     for x:=1 to 15 do
     begin
          a[x]:=random(15)+1;
          sum:=sum+a[x];
          writeln(a[,x,]:,a[x]);
     end;
     sr:=sum/15;
     writeln;
     for x:=1 to 15 do
         if a[x]>sr then write(a[x]:3);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.