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

Question

Информатика

Еремей

14 октября, 19:21

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

+2

Ответы (1)

Знаете ответ?

Федорка · 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;

end;

writeln;

sr:=s/k;

writeln (sr:0:2) ;

readln;

end.