Дан двумерный массив целых чисел 5x5. заменить числа - вопрос №5579210217 от БадАнгелина 07.02.2021 10:58

Question

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

БадАнгелина · 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 их квадратами. паскаль