Как работает эта программа на языке паскаль ? объясните заполните массив случайными числами в интервале [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.

нтг1    1   14.07.2019 16:40    0