Дан двумерный массив целых чисел 5x5. заменить - вопрос №5579210385 от annaorlova2 29.12.2022 15:21

Question

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

annaorlova2 · 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 их квадратами. паскаль