Ответы
Ответ дал:
0
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.
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/bf8/bf82761b4dcc25dc9d7dbd21839a5d8a.jpg)
Ответ дал:
0
Размеры матрицы на практике можно считать произзвольными
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад