Const mm=50; { максимально возможное кол-во строк } nn=50; { максимально возможное кол-во столбцов } var a:array[1..mm,1..nn] of integer; i,j,m,n:integer; begin Randomize; Write('Количество строк в массиве: '); Read(n); Write('Количество столбцов в массиве: '); Read(m); Writeln('*** Исходный массив ***'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=Random(101)-50; { [-50;50] } Write(a[i,j]:7) end; Writeln end; Writeln; for i:=1 to n do begin for j:=1 to m do begin if a[i,j]<0 then a[i,j]:=121212; Write(a[i,j]:7) end; Writeln end end.
mm=50; { максимально возможное кол-во строк }
nn=50; { максимально возможное кол-во столбцов }
var
a:array[1..mm,1..nn] of integer;
i,j,m,n:integer;
begin
Randomize;
Write('Количество строк в массиве: '); Read(n);
Write('Количество столбцов в массиве: '); Read(m);
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=Random(101)-50; { [-50;50] }
Write(a[i,j]:7)
end;
Writeln
end;
Writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]<0 then a[i,j]:=121212;
Write(a[i,j]:7)
end;
Writeln
end
end.