Предмет: Информатика,
автор: 07avagat
Помогите пожалуйста паскальABC
Дана матрица А(4,8) вывести все положительные элементы этой матрицы. Найдите максимальный по модулю элемент
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var sa:=a.Rows.SelectMany(x->x);
Writeln('Положительные элементы:');
sa.Where(x->x>0).Println;
Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x)));
end.
Пример
*** Исходная матрица ***
80 9 -8 32 37 75 43 -72
71 -79 94 -20 -64 -37 -98 53
19 84 -63 -4 17 5 38 -86
-32 56 87 -43 28 -40 -35 24
--------------------------------
Положительные элементы:
80 9 32 37 75 43 71 94 53 19 84 17 5 38 56 87 28 24
Максимальный по модулю элемент: 98
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var sa:=a.Rows.SelectMany(x->x);
Writeln('Положительные элементы:');
sa.Where(x->x>0).Println;
Write('Максимальный по модулю элемент: ',sa.Max(x->abs(x)));
end.
Пример
*** Исходная матрица ***
80 9 -8 32 37 75 43 -72
71 -79 94 -20 -64 -37 -98 53
19 84 -63 -4 17 5 38 -86
-32 56 87 -43 28 -40 -35 24
--------------------------------
Положительные элементы:
80 9 32 37 75 43 71 94 53 19 84 17 5 38 56 87 28 24
Максимальный по модулю элемент: 98
Похожие вопросы
Предмет: Математика,
автор: alinapolion560
Предмет: История,
автор: Аноним
Предмет: Химия,
автор: ilialolinux
Предмет: Химия,
автор: sershantrapatak
Предмет: Математика,
автор: derzkaiamarta