Удвоение производной из двух массивов из 10 элементов заданного на интервале [-50,50] вывести на экран - id1305753420210107 от Чебурашка1234567890 07.01.2021 18:20

Question

Информатика: Удвоение производной из двух массивов из 10 элементов заданного на интервале [-50,50] вывести на экран оба массива примечание: Поскольку массив произвольный то лучше заполнить его случайным образом. Формула образования случайных чисел из диапазона [-50,50]- INT(100*RND-50). В программе на экране будет выводиться два массива поэтому печать лучше оформить как подпрограмму

Чебурашка1234567890 · 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 ответил