Одномерный и двумерный массив

[Almost456]

1-ый массив

Даны массивы

N1,....N5 - наименование поставщиков
PS1,...,PS5 - город, где находятся поставщики
P1,...,P5 - наименование потребителей
POT1,...,POT5 - город, где находятся потребители.
Напечатать список поставщиков и потребителей, находящихся в одном и том же городе.

2-ый массив

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


________________
l / / / / / / l
l / / / / / / l
l / / / / / l
l / / / / / l
l / / / / l
l / / / / l
l / / / / l
l / / / l
l / / / l
l / / l
l / / l
l / l
l / l
_________________
Решите,пожалуйста кому не лень...

[Almost456]

1 массив уже решил,помогите со 2 заданием.

[slips]

вот и бегай по этой нужной заштрихованной части

for i:=1 to 10 do 
     for j:=1 to 11-i do

[Викдон]

заштрихованной части матрицы ??

[Almost456]

у меня что то не получается...
Поможете?

program matrix;
uses crt;
var matrica:array[1..10,1..10] of integer;
max:integer;
min:integer;
i,j:integer;
begin
ClrScr;
write('введите матрицу');
for j:=1 to 10 do
for i:=1 to 10 do
begin
gotoxy(3+i*4,3+j*2);
readln(matrica[i,j]);
end;
for i:=1 to 10 do
for j:=1 to 11-i do
if matrica[i,j]>max then
begin
max:=matrica[i,j];
end;
for i:=1 to 10 do
for j:=1 to 11-i do
if matrica[i,j]<min then
begin
min:=matrica[i,j];
end;
for i:=1 to 10 do
for j:=1 to 11-i do
if matrica[i,j]<>0 then begin
max:=min;
min:=max;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(matrica[j,i]:4);
writeln;
end;
readkey;
end.

[Rusl92]

вот решение:

var a:array[1..10,1..10] of real;
     i,j,minmestoi,minmestoj,maxmestoi,maxmestoj:integer;
     min,max,tmp:real;
begin
     writeln('Vvedite matricy');
     for i:=1 to 10 do
     begin
      for j:=1 to 10 do
       read(a[i,j]);
      readln
     end;  
     k:=6;min:=99999999999;max:=-99999999999;
     for i:=1 to 10 do
     begin 
      for j:=1 to k do
      begin
       if a[i,j]<min
         then 
          begin
          min:=a[i,j];
          minmestoi:=i;
          minmestoj:=j;
          end;
        if a[i,j]>max
         then 
          begin
          max:=a[i,j];
          maxmestoi:=i;
          maxmestoj:=j;
          end;
        end;
       if (i mod 2)=0 {chetnoe} 
        then 
          k:=k-1;
      end;
      tmp:=a[minmestoi,minmestoj];
      a[minmestoi,minmestoj]:=a[maxmestoi,maxmestoj];
      a[maxmestoi,maxmestoj]:=tmp;
      writeln('Vivod matricy');
     for i:=1 to 10 do
     begin
      for j:=1 to 10 do
       write(a[i,j]:3:3,' ');
      writeln
     end;  
     readln;
 end.

[Unreed]

Ух как это было давно..Но все же.. Кто может помогите написать программу к первой задаче...Заранее огромное Спасибо!!!