Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ



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
309
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам