Определить,сколько элементров матрицы превышает число 2(Паскаль)
Answers & Comments
moboqe// PascalABC.NET 3.2, сборка 1399 от 08.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*'-'); Write('Количество элементов, превышающих 2, равно '); Writeln(a.Rows.SelectMany(x->x).Where(x->x>2).Count) end.
Пример: Количество строк в матрице: 4 Количество столбцов в матрице: 7 *** Исходная матрица [4,7] *** 46 81 -90 -42 -7 -2 -16 -32 -12 16 -46 -54 -85 97 26 98 77 68 -21 47 -63 27 8 -1 54 -46 -52 52 ---------------------------- Количество элементов, превышающих 2, равно 13
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Write('Количество элементов, превышающих 2, равно ');
Writeln(a.Rows.SelectMany(x->x).Where(x->x>2).Count)
end.
Пример:
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
46 81 -90 -42 -7 -2 -16
-32 -12 16 -46 -54 -85 97
26 98 77 68 -21 47 -63
27 8 -1 54 -46 -52 52
----------------------------
Количество элементов, превышающих 2, равно 13