Дан двумерный массив целых чисел 5x5. заменить числа - вопрос №5579210042 от nadyarn 01.01.2023 05:12

Question

Информатика: Дан двумерный массив целых чисел 5x5. заменить числа меньше 7 их квадратами. паскаль

nadyarn · Answer

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=5;
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-30,99);
a.Println(4); Writeln(4*n*'-');
a.Transform(t->t<7?t*t:t);
Writeln('*** Полученный массив ***'); a.Println(4)
end.

Дан двумерный массив целых чисел 5x5. заменить числа меньше 7 их квадратами. паскаль

Дан двумерный массив целых чисел 5x5. заменить числа меньше 7 их квадратами. паскаль