Привет можете мне с сором по инфарматике 5 класс за 3 четверг

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Количество отрицательных значений ',a.Where(t->t<0).Count);
end.

Пример
n= 15
3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21
Количество отрицательных значений 5

№2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=ReadInteger('k=');
  if a.ElementsByRow.Any(t->t>k) then Writeln('Есть')
  else Writeln('Нет')
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
  -9  48 -98 -35 -33 -29  44 -32
 -33 -48 -62  11  45  53  52  90
 -96  -1  68 -21  15 -72 -78 -28
  44  15 -53 -33 -27  89 -60 -49
  28 -73 -99  81  23  -9 -93 -66

k= 92
Нет

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

begin
  var a:=ReadArrInteger(10);
  Write('Массив A: '); a.Println;
  var s:=a.Where(t->t<0); // последовательность не хранится
  var an:=s.Average;
  Writeln('Отрицательных элементов: ',s.Count,', среднее= ', an);
  var b:=a.Select(t->t<0?an:t).ToArray;
  Write('Массив В: '); b.Println
end.

Пример
49 -5 21 10 22 -23 3 35 -26 -43
Отрицательных элементов: 4, среднее= -24.25
Массив В: 49 -24.25 21 10 22 -24.25 3 35 -24.25 -24.25