двумерные массивы.

[blitz]

Помогите сделать программу, я новичок в этом и не разобрался еще
заранее спасибо)

Задача:

Дана действительная квадратная матрица (10,10).
Поменять местами минимальные элементы заштрихованной части матрицы.

[Hacker19_90]

Покажите мне

заштрихованную часть матрицы

[blitz]

там квадрат нарисован квадрат, одно сторона заштрихованна, из меня художник не очень, но вот так - http://s006.radikal.ru/i213/1103/8a/ee067ef547dc.png

[Летучий_СкилетиК]

если имеете ввиду минимальные - два наименьших, то так:

uses crt;
var
   a :array [1..10,1..10] of integer;
   i, j, m1, ti1, ti2, tj1, tj2, n, t:integer;
begin
randomize;
for i:=1 to 10 do
begin
   for j:=1 to 10 do
   begin
       a[i,j]:=random(10);
       write(a[i,j],' ');
   end;
writeln;
end;
m1 := a[1,1]; ti1 := 1; tj1:=1;
ti2 := 1; tj2:=2;
n := 10;
for i:=1 to 10 do
begin
    for j:=1 to n do
    if m1 > a[i,j] then begin ti2 := ti1; tj2 := tj1; m1 := a[i,j]; ti1 := i; tj1 := j; end;
    dec(n);
end;
t :=a [ti1,tj1];
a [ti1,tj1] := a [ti2,tj2];
a [ti2,tj2] := t;
writeln;
for i:=1 to 10 do
begin
   for j:=1 to 10 do
   write(a[i,j],' ');
   writeln;
end;
end.