Двухмерные массивы в Паскале

[air4ega]

Всем привет,помогите пожалуйста решить 3 задачи
1)Найти номера строк и столбцов, на пересечении которых расположен элементы, равные нулю в массиве А(n,m). Заменить эти элементы наименьшим значением элемента массива.

2)В произвольном массиве Х(n,m) все элементы, стоящие по второй диагонали, положить равными наибольшему элементу массива
3)В массиве А(n, m) найти разность между суммой элементов во 2 строке и суммой элементов в 5 столбце.

[unbanned]

1.

min:=a[1,1];
for i:=1 to n do
for j:=1 to m do begin
if a[i,j]=0 then writeln(i,' ',j);
if min<a[i,j] then min:=a[i,j];
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=0 then a[i,j]:=min;

как-то так

[Stilet]

В массиве А(n, m) найти разность между суммой элементов во 2 строке и суммой элементов в 5 столбце.

const n=5;m=6;
var a:array[1..n,1..m] of integer;i,j,razn:integer;
begin
for i:=1 to n do begin
 for j:=1 to m do begin
   a[i,j]:=random(100);write(a[i,j]:5);
   if i=2 then   razn:=razn+a[i,j];
   if j=5 then   razn:=razn-a[i,j];
 end; writeln;
end;
writeln(razn);
readln;
end.

Сойдет?

[BoozZzilla]

а razn:=0; не обязательно?
там вроде мусор будет если не обнулить?

интересно, я даже не думал про то чтобы одновременно с заполнением считать

[Stilet]

а razn:=0; не обязательно?
там вроде мусор будет если не обнулить?

Ну я хотел чтоб автор сам додумался
Кстати насчет мусора - не обязательно, но желательно, если не ошибаюсь программа при загрузке сама проинициализирует глобальные переменные.

[air4ega]

Спасиб за помощь,еще бы со 2 задачей кто нить помог бы

[Spyman]

Находишь максимальный элемент стандартным способом. А потом просто (я правда не понял какая вторая диагональ - есть главная, побочная а больше я не знаю) но если имелась в виду побочная то
for i:= 1 to n do
for j:= 1 to m do
if (m - i) = j then X[i,j]:=max;

не самый рациональный способ. но самый простой.