Массив А[20] нецелых элементов задать датчиком случайных чисел.
Вычислить среднее арифметическое значение
положительных элементов и максимальный
элемент среди отрицательных элементов массива А.

program vovagurko33;

const n = 20;

type mas = array [1..n] of double;

var a: mas;

   k, i: integer;

   summa, sa, max: double;

begin

write('Массив А[20] нецелых элементов задать датчиком случайных чисел. Вычислить среднее арифметическое значение положительных элементов');

writeln('и максимальный элемент среди отрицательных элементов массива А.');

writeln;

k := 0;

summa := 0;

max := -101;

randomize;

for i := 1 to n do

begin

 a[i] := -100 + 201 * random;

 write(a[i] : 0 : 2, '; ');

 if (a[i] > 0) then

 begin

  k := k + 1;

  summa := summa + a[i];

  sa := summa / k;

 end;

 if ((a[i] < 0) and (a[i] > max)) then max := a[i];

end;

writeln;

writeln;

writeln('Среднее арифметическое значение положительных элементов равно ', sa : 0 : 2);

writeln('Максимальный элемент среди отрицательных элементов равен ', max : 0 : 2);

readln;

end.