8. Заполните массив случайными числами в спектре 0..100 и подсчитайте отдельно
8. Заполните массив случайными числами в спектре 0..100 и подсчитайте раздельно среднее
значение всех частей, которые lt;50, и среднее значение всех частей, которые 50.
Код (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] lt; 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.
-----------------------------
Файл решения прикреплён.
-
Вопросы ответы
Статьи
Информатика
Статьи
Литература.
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.
Разные вопросы.