Двумерный массив. Числовой файл
 

1. Ввести целочисленный двумерный массив , вывести его. Найти сумму положительных угловых элементов. Найденной суммой заменить строку содержащую минимальный элемент и столбец, содержащий максимальный элемент.
2. Задан числовой файл . Найти сумму компонент, стоящих между минимальной и максимальной. Заменить этой суммой все элементы из которых она сформирована (элементы между максимумом и минимумом). Файл вывести как до, так и после преобразования.

^ вот 2 задачи.

сначала давайте разберемся с первой. вот что я нацарапал :
program laba1;
const Creep=20;
var
z,i,j,k, sum,Imin,Jmax,IndexI,Indexj,n,m: integer;
A:array[1..Creep,1..Creep] of integer;
b:array[1..500] of integer;
begin
cls;
sum:=0;
z:=0;
writeln('vvedite 4erez _ N(kolvo strok) and M(kilvo stolbcov)=');
readln(n,m);
writeLn('Вводим элементы массива A:');
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;

for i:=1 to N do
for j:=1 to M do
if a[i,j]<imin then
begin
imin:=a[i,j];IndexI:=i;
end;
writeln('строка в которой миним элемет ',IndexI);


for i:=1 to N do
for j:=1 to M do
if a[i,j]>jmax then
begin
jmax:=a[i,j];Indexj:=j;
end;
writeln('столбец в которой максимальный элемет ',Indexj);


b[1]:=a[1,1];
b[2]:=a[1,m];
b[3]:=a[n,1];
b[4]:=a[n,m];

for i:=1 to z do
begin
writeln(b[i]:3);
end;

for i:=1 to z do
if b[i]>0 then begin
sum:=sum + b[i];
end;
writeln('summa=', sum);
end.

не могу найти где скрывается косяк, корректно ли идёт присвоение элементам массива b крайних элементов массива a ( и правильно ли они указаны), правильно ли найдены мин/макс...
в общем помогите достроить программу плиз.

и подскажите начало второй.

Извольте. Вот чего я у Вас совсем не понял, так это на кой пёс занадобился 500-элементный массив B а также что такое z и чему оно равно (хотя по-моему, числу углов, т.е. 4). Кроме того, следует задавать исходные значения при поисках максимумов и минимумов.
И еще один совет на будущее. Хоть для транслятора это и не важно, но уж если Вы обозначаете, к примеру, число строк и столбцов большими буквами M и N, то так их и ведите до конца, а не вперемешку то большие, то малые. Это дисциплинирует и существенно повышает читабельность программы.

код писался прямо на лабе... по этому так не аккуратно.
да 4 - это углы.
спс,чуть позже выложу свои варианты ещё 3 задач, подкорректируйте ;) :tehnari_ru_657: