Составить программу в паскале , которая в массиве из десяти целых чисел считает среднее арифметическое отрицательных.

const n=10; var a:array[1..n] of integer;i,s,k:integer; beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(51)-25; write(a[i]:4); end;writeln;s:=0; k:=0;for i:=1 to n do if a[i]<0 then begin s:=s+a[i]; k:=k+1; end;writeln('s = ',s,' k = ',k);if k>0 then writeln('Среднее арифметическое отрицательных = ',s/k) else writeln('Отрицательных нет');end.Пример:Массив A: -11  11  13   9 -11  -2  18 -18   3 -14s = -56 k = 5Среднее арифметическое отрицательных = -11.2

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('Вводите:',10);  Writeln('Ср.арифм. отрицательных чисел ',a.Where(x->x<0).Average)end.ПримерВводите: 5 -3 2 8 11 21 -42 16 0 5Ср.арифм. отрицательных чисел -22.5