ПРАКТИЧЕСКАЯ РАБОТА
по теме: «Программирование в Pascal»
Найти сумму ряда:

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

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(3,4,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsWithIndexes.Where(z->z[0]<0);
  if s.Count=0 then Writeln('Нет отрицательных элементов')
  else begin
    Write('Отрицательные элементы: ');
    s.Select(x->Format('a[{0},{1}]',x[1]+1,x[2]+1)).Println
    end
end.

Пример
*** Исходный массив ***
 -62  13 -44  78
 -19  73  92 -61
  47 -13   3  43

Отрицательные элементы: a[1,1] a[1,3] a[2,1] a[2,4] a[3,2]

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

№1

begin
  var n:=ReadInteger('n=');
  Writeln('S=',n*(n+1) div 2)
end.

Пример
n= 15373
S=118172251

№2

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Количество отрицательных элементов построчно:');
  a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
  88  43  64  50 -27  -9  48  55
   1  40 -39 -99 -45 -54  17 -77
 -33  99 -38 -19 -93  18 -19 -24
  17   4 -36  90  98  69  68  35
 -35  18  85  54 -74 -69  14 -62

Количество отрицательных элементов построчно:
2 5 6 1 4