Меня волнуют двумерные массивы (матрицы)!

[Маськ@]

Двумерный массив, элементы массива генерируются случайным образом в заданном диапазоне [-22; 132]. Задана квадратная матрица размером m x m. Исключить из неё строку и столбец, на пересечении которых находится минимальный элемент главной диагонали.

[-HunteR-]

Маськ@
А где наработки твои?

[maladoy]

Program massiv4iki;
Uses Crt;
Var i,j,im,m:integer;
    vsp:integer;
    a:array[1..100,1..100] of integer;
begin
clrscr;
writeln('vvedite m');
readln(m);
randomize;
for i:=1 to m do
for j:=1 to m do
a[i,j]:=random(132)-22;
for i:=1 to m do
 begin
for j:=1 to m do 
write ('  ',a[i,j]);
writeln;
end; 
im:=1;
vsp:=a[1,1];
for i:=2 to m do
if a[i,i]<vsp then begin
 vsp:=a[i,i];im:=i;
end;
for i:=1 to m do
 begin
for j:=1 to m do begin
if (i<>im) or(j<>im) then 
write ('  ',a[i,j]);
end;
writeln;
end;
readln;
end.

[alex_fcsm]

Маленькая ремарка

a[i,j]:=random(155)-22;