Заполнить массив на 200 элементов псевдослучайными числами (целыми) от 20 до 80. Вывести полученный массив на экран, затем определить среднее арифметическое элементов, больших чем 50

Program n1;

const n=200;

var a: array [1 ... n] of integer;

i, sum, k: integer;

begin

randomize;

sum:=0;

writeln ('массив: ');

for i:=1 to n do

begin

a[i]:=random (61) + 20;

write (a[i],' ');

end;

for i:=1 to n do if a[i]>50 then

begin

sum:=sum+a[i];

k:=k+1;

end;

writeln;

writeln ('ср. арифм: ', sum/k);

end.