КАК РАБОТАЕТ ЭТА ПРОГРАММА НА ЯЗЫКЕ ПАСКАЛЬ ? ОБЪЯСНИТЕ Заполните массив случайными числами в интервале [0;100] и подсчитайте отдельно среднее значение всех элементов,которые меньше 50, и среднее значение всех элементов,котор...
КАК РАБОТАЕТ ЭТА ПРОГРАММА НА ЯЗЫКЕ ПАСКАЛЬ ?
ОБЪЯСНИТЕ
Заполните массив случайными числами в интервале [0;100] и подсчитайте отдельно среднее значение всех элементов,которые меньше 50, и среднее значение всех элементов,которые больше или равны 50.
var a1, a2, b1, b2, c, i, n :integer;
s:array [1..10000] of integer;
begin
read (n);
for i:=1 to n do
begin
s[i]:=random(100);
if s[i]<50 then
begin
a1:=a1+s[i];
a2:=a2+1;
end;
if s[i]>=50 then
begin
b1:=b1+s[i];
b2:=b2+1;
end;
writeln (a1/a2:0:3,' ', b1/b2:0:3);
end.
Гость
Ответ(ы) на вопрос:
ГостьТы вводишь значение переменной n, после, идёт цикл от 1 до n: s принимает рандомное значение до 100.
Если s[цикл] < 50, тогда a1=a1+s[i]
a2=a2+1
и если s[цикл] > 50 тогда
b1=b1+s[i]
b2=b2+1
Когда цикл пройдет, на экране появятся 2 цифры, где первая это : a1/a2 в масштабе 0:3 и вторая: b1/b2 в масштабе 0:3
конец
Не нашли ответ?
Похожие вопросы