Петя решил выписать все натуральные числа,начиная с единицы,друг за другом.но сумел добраться только - id433613120220129 от Маріямарія 29.01.2022 06:20

Question

Информатика: Петя решил выписать все натуральные числа,начиная с единицы,друг за другом.но сумел добраться только до 3210-й цифры,после чего уснул.последней цифрой,которую написал петя,была

Маріямарія · Accepted Answer

// 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

MOGZ ответил