Случайным образом получить 15 чисел, числа в диапазоне [-50, 50]. 2. Определить количество отрицательных среди них. 3. Определить минимальное. 4. Определить среднее арифметическое среди отрицательных. Необходимо сделать в паскале

const n=15;var a:array [1..n] of integer;i,k,m,s:integer;beginfor i:= 1 to n doa[i]:= random(101)-50;writeln(a);for i:=1 to n doif a[i] < 0 then k:=k+1;writeln('Отрицательных элементов: ',k);m:=a[1];for i:=2 to n doif a[i] < m then m:=a[i];writeln('Минимальный элемент: ',m);s:=0;for i:=1 to n doif a[i] < 0 then s:=s+a[i];writeln('Среднее арифметическое отрицательных элементов: ',s/k)end.

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(15,-50,50); a.Println;  Writeln('Отрицательных: ',a.Where(t->t<0).Count);  Writeln('Минимум: ',a.Min);  Writeln('Среднее арифметическое отрицательных: ',      a.Where(t->t<0).Average)end.Пример-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20Отрицательных: 8Минимум: -41Среднее арифметическое отрицательных: -23.125