Question

в заданном одномерном массиве найти среднее арифметическое положительных чисел, отрицательных чисел и число нулей

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var (sn,kn,sp,kp,kz):=(0,0,0,0,0);
  foreach var t in a do
    if t>0 then begin sp+=t; kp+=1 end
    else
      if t<0 then begin sn+=t; kn+=1 end
      else kz+=1;
  Writeln('Среднее арифметическое положительных чисел равно ',sp/kp);
  Writeln('Среднее арифметическое отрицательных чисел равно ',sn/kn);
  Writeln('Количество нулей равно ',kz)
end.

Пример
n= 200
-21 -33 -10 8 -27 28 -91 -15 43 -18 32 -54 -5 -72 -4 -76 -99 81 79 -13 -5 0 -39 13 57 -72 27 27 -18 -27 92 -64 57 1 -81 91 6 70 95 -13 6 -50 -99 -83 -10 -37 -60 65 -16 16 50 7 -91 42 7 78 -93 76 51 -54 -98 -19 -97 -29 -11 -3 -12 93 -91 4 17 -70 86 -7 81 -55 0 -55 -76 -6 87 62 -56 65 22 -14 -73 -84 94 -60 85 29 -80 49 -15 -75 -53 29 27 92 74 -54 56 79 98 20 21 16 60 -38 -21 62 52 -43 -41 -61 -62 -63 48 -97 -30 -27 99 68 19 88 -89 -63 -92 56 97 70 17 -69 19 41 -93 -36 67 -97 64 11 -45 32 61 -77 76 63 -10 -53 86 -89 81 24 23 2 -54 87 -39 -89 10 -16 8 -96 -36 8 -55 21 37 18 -67 74 -30 46 -61 59 -82 -32 -92 -4 -88 -53 46 61 70 87 89 92 8 -82 -5 -81 -97 56 -8 -19 -96 -48 -32 -46
Среднее арифметическое положительных чисел равно 50.5744680851064
Среднее арифметическое отрицательных чисел равно -51.4134615384615
Количество нулей равно 2