Заполнить массив из 10 элементов случайными целыми числами в интервале [0, 100] и...

Question

Заполнить массив из 10 элементов случайными целыми числами в интервале [0, 100] и подсчитать среднее значение всех элементов, которые <50 Pascal</p>

Answer 1

var

a:array [1..10] of integer;

s:integer;

i,k:byte;

sr:real;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random(101);

write (a[i],' ');

if a[i]<50 then begin s:=s+a[i];k:=k+1;end;</p>

end;

writeln;

sr:=s/k;

writeln (sr:0:2);

readln;

end.