Заполните массив (23) случайными числами в интервале [0,100] и подсчитайте отдельно...

Question

Заполните массив (23) случайными числами в интервале [0,100] и подсчитайте отдельно среднее значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50. На языке паскаль срочно! 15б. Спасибки

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(23,0,100); a.Println;
  Println(a.Where(t->t<50).Average,a.Where(t->t>=50).Average)
end.

Answer 2

Var a: array [1..23] of integer;
i,s1,s2,k1,k2:integer;
begin
for i:=1 to 23 do
begin
a[i]:=random (101);
write (a[i],' ');
if a[i]<50 then<br>begin
s1:=s1+a[i];
k1:=k1+1
end
else
begin
s2:=s2+a[i];
k2:=k2+1
end
end;
writeln;
writeln ('Среднее арифметическое < 50 ',s1/k1);
writeln ('Среднее арифметическое >=50 ', s2/k2)
end.