Найти сумму всех элементов двумерного массива, больших первого элемента этого массива?Язык программирования — Паскаль.

Вопрос школьника по предмету Информатика

Найти сумму всех элементов двумерного массива, больших первого элемента этого массива?Язык программирования — Паскаль.

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

// Внимание! Если программа не работает, обновите версию!

begin

  var n:=ReadInteger(‘Количество строк в массиве:’);

  var m:=ReadInteger(‘Количество столбцов в массиве:’);

  Writeln(‘*** Исходный массив [‘,n,’,’,m,’] ***’);

  var a:=MatrRandom(n,m,-99,99);

  a.Println(4); Writeln(4*a.ColCount*’-‘);

  var a1:=a[0,0];

  Writeln(‘S=’,a.ElementsByRow.Skip(1).Where(x->x>a1).Sum)

end.

Пример

Количество строк в массиве: 4

Количество столбцов в массиве: 5

*** Исходный массив [4,5] ***

  35  24  93 -58 -89

 -51 -55 -83  49 -92

 -90  89  68  28 -60

  46 -57  53 -78 -42

———————

S=398