Question

Сформировать массив из 15 целых чисел, выбранных случайным образом из интервала [-10,30]. Найти среднее арифметическое положительных элементов.

Answer 1

1. Решение в современном стиле

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

begin
  var a:=ArrRandom(15,-10,30); a.Println;
  Writeln(a.Where(t->t>0).Average)
end.

Пример
9 -6 -9 11 -8 27 -8 -2 4 11 3 24 4 -5 -7
11.625

2. Решение в стиле "Так обычно учат в школах"

const
  n=15;

var
  a:array[1..n] of integer;
  i,s:integer;

begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(41)-10;
    Write(a[i],' ');
    s:=s+a[i]
    end;
  Writeln;
  Writeln(s/n)
end.