Вопрос, который вызвал трудности
Найти сумму всех элементов двумерного массива, больших первого элемента этого массива?Язык программирования -- Паскаль.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Найти сумму всех элементов двумерного массива, больших первого элемента этого массива?Язык программирования -- Паскаль.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Const
N = 3;
M = 4;
Var
A:array[1..N,1..M] of integer;
i,j:integer;
S:real;
Begin
Randomize;
S:=0;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:4)
End;
WriteLn
End;
For i:= 1 to N do
For j:= 1 to M do
if A[i,j]>A[1,1] then S:=S+A[i,j];
WriteLn('S = ',S);
End.
// Внимание! Если программа не работает, обновите версию!
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