Всостав каких систем входит подсистема "компьютер"? для каких систем компьютер является надсистемой? ,

pascalabc.net

1. короткое, внешне изящное, но крайне неэффективное решение, поскольку массив просматривается пять раз.

begin

  var a : = arrrandom(40, 0, 120);

  a.println;

  println('элементов, равных 30: ', a.count(p -> p = 30));

  println('сумма элементов: ', a.sum);

  println('среднее арифметическое элементов: ', a.average);

  var (imax, imin) : = (a.indexmax, a.indexmin);

  println('максимальный элемент №', imax + 1, '=', a[imax]);

  println('минимальный элемент №', imin + 1, '=', a[imin])

end.

2. более длинное решение, но с одним просмотром массива и поэтому эффективное.

begin

  var a : = arrrandom(40, 0, 120);

  a.println;

  var (k, s, imax, imin) : = (0, 0, 0, 0);

  for var i : = 0 to a.high do

  begin

    if a[i] = 30 then

      inc(k);

    s += a[i];

    if a[i] > a[imax] then

      imax : = i

    else if a[i] < a[imin] then

      imin : = i  

  end;

  println('элементов, равных 30: ', k);

  println('сумма элементов: ', s);

  println('среднее арифметическое элементов: ', s / 40);

  println('максимальный элемент №', imax + 1, '=', a[imax]);

  println('минимальный элемент №', imin + 1, '=', a[imin])

end.