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

Question

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

Answer 1

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.

Comments

что такое randomize?

---

генератор случайного числа