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

Question

Информатика

Досифея

30 сентября, 12:22

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

+3

Ответы (1)

Знаете ответ на вопрос?

Афанасия · Answer 1

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.