Question

Найти среднее арифметическое всех положительных элементов одномерного массива. В Delphi. 

Answer 1

const
  n = 30;

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

begin
  Randomize;
  s := 0;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:4);
    if a[i] > 0 then s := s + a[i]
  end;
  writeln;
  writeln('Сумма положительных элементов равна ', s)
end.

Тестовое решение:

Исходный массив
 -17  -8  11 -47  30 -32  18 -15 -36  18  -3  45  11  44 -14 -33  13 -26  -8 -31 -42  45  -9   2  42  48   6  10 -12  27
Сумма положительных элементов равна 370

Answer 2

Решение во вложениях. Удачи.