Программы по двумерному массиву, на С++1.Сформировать двумерный массив и заполнить его случайными числами. Найти минимальный элемент массива. Все отрицательные элементы массива, расположенные ниже главной диагонали, заменить на его значение.

uses Crt;

const N = 5; M = 5; Var A: array[1..N, 1..M] of integer;             i, j: integer; begin ClrScr;    for i:= 1 to N do       for j:= 1 to M do          A[i, j]:= Random((50) – 10); {Вывод матрицы на экран по строкам}        writeln;    for i:= 1 to N do begin       for j:= 1 to M do     write('   ' , A[i, j]:3);        writeln;  writeln;     end;         writeln;     for i:= 1 to N do begin     for j:= 1 to M do begin   if A[j, i] <> A[i, j] then A[i, j]:= 0       else A[i, j]:= A[j, i];       write('   ' , A[I, j]:3);     end;         writeln;  writeln;      end;    readln end.

1 2 3 4 5 6 7 8 9 10 for i:=1 to n do begin   for j:=1 to m do begin     a[i,j]:=(i-1)*n+j;     Write(a[i,j]:3); { вывели исходную строку }   end;   a[i,i]:=Random(40);  { получили новую строку }   Write('':3); { визуально отделим второй массив }   for j:=1 to m do Write(a[i,j]:3); { вывели новую строку }   WriteLn; end;