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

ZaykaYmnik ZaykaYmnik    1   26.09.2019 05:40    2

Ответы
hik14 hik14  08.10.2020 20:03
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.
ПОКАЗАТЬ ОТВЕТЫ
5555321 5555321  08.10.2020 20:03
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
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.
Заполните массив (23) случайными числами в интервале [0,100] и подсчитайте отдельно среднее значение
ПОКАЗАТЬ ОТВЕТЫ