Question

PascalABC. Дана матрица A(M,N). Возвести в квадрат все отрицательные элементы матрицы.

Answer 1

type  

 tarray = array [1..50,1..50] of longint;

var

 a : tarray;

 n,m,i,j : longint;

begin

 readln(n,m);

 for i:=1 to n do

   for j:=1 to m do read(a[i,j]);

 for i:=1 to n do

   for j:=1 to m do

     if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j];

 for i:=1 to n do

   begin

     for j:=1 to m do write(a[i,j],' ');

     writeln;

   end;

end.

Вместо знака ? поставь максимальные значения N и M.

Answer 2

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов в матрице:');

 Writeln('*** Исходная матрица ***');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(5);

 Writeln(5 * a.ColCount * '-');

 a.Transform(t -> t < 0 ? t * t : t);

 Writeln('*** Полученная матрица ***');

 a.Println(5)

end.