Question

Срочноооо!!! Плиз!! Дан двумерный массив A[n, m]. Заменить значения всех отрицательных элементов на 121212.

Answer 1

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.