Гость Оʻzbek tili Архивный вопрос

8. Заполните массив случайными числами в диапазоне 0..100 и подсчитайте отдельно среднее
значение всех элементов, которые <50, и среднее значение всех элементов, которые ≥50.

2 комментария:
guest Массив из скольки элементов состоит? И на каком языке нужна программа?
guest массив от 0 до 100, в pascal

Ответы

Гость Гость

Код (Pascal)var  a: array[1..100] of integer;  n, i, cnt1, cnt2: integer;  ans1, ans2: real;
begin  n := random(100) + 1;  for i := 1 to n do  begin    a[i] := random(101);    writeln(a[i]);  end;  for i := 1 to n do    if (a[i] < 50) then    begin      cnt1 := cnt1 + 1;      ans1 := ans1 + a[i];    end    else    begin      cnt2 := cnt2 + 1;      ans2 := ans2 + a[i];    end;  writeln(ans1 / cnt1, \' \', ans2 / cnt2);end.-----------------------------Файл решения прикреплён.

Код (Pascal)var  a: array[1..100] of integer;  n, i, cnt1, c Ответ ни кто не комментировал