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.
1) Функциональные клавиши F1-F12 предназначены для выполнения ряда команд при работе с некоторыми программами.
2) Символьные (алфавитно-цифровые) клавиши используются для ввода информации в компьютер.
3) Клавиши управления курсором перемещают курсор в начало строки, в конец строки, на страницу вверх и на страницу вниз.
4) Дополнительные клавиши, расположенные с правой стороны клавиатуры, могут работать в двух режимах, переключаемых клавишей NumLock:
- при включённом индикаторе NumLock это удобная клавишная панель с цифрами и знаками арифметических операций, расположенными, как на калькуляторе;
- если индикатор NumLock выключен, то работает режим управления курсором.
5) Специальные клавиши (Enter, Esc, Shift, Delete, Backspace, Insert и др.) — это клавиши для специальных действий;
Клавиша Enter завершает ввод команды и вызывает её выполнение. При наборе текста служит для завершения ввода абзаца.
Клавиша Esc, расположенная в левом верхнем углу клавиатуры, обычно служит для отказа от только что выполненного действия.
Объяснение:
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.