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

[ayPinki]

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

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:3);
end;

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

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

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

 

[Vladimir_S]

в общем помогите достроить программу плиз.

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

const
 Creep=20;
var
 i,j,k, sum,Imin,Jmax,IndexI,Indexj,N,M: integer;
 A:array[1..Creep,1..Creep] of integer;
 b:array[1..4] of integer;

begin
 sum:=0;
 writeln('vvedite 4erez _ N(kolvo strok) and M(kolvo stolbcov):');
 readln(N,M);
 writeLn('vvodim elementi massiva A:');
 for i:=1 to N do
  for j:=1 to M do
   begin
    write('A[',i,',',j,']= ');
    readLn(A[i,j]);
   end;
 writeln;
 for i:=1 to N do
  begin
   for j:=1 to M do
    write(A[i,j]:4);
   writeln;
  end;
 imin:=A[1,1];
 IndexI:=1;
 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('Stroka, v kotoroi minimalnii element - ',IndexI);
 jmax:=A[1,1];
 IndexJ:=1;
 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('Stolbets, v kotorom maximalnii element - ',Indexj);


 b[1]:=a[1,1];
 b[2]:=a[1,M];
 b[3]:=a[N,1];
 b[4]:=a[N,M];

 sum:=0;
 for i:=1 to 4 do
  if b[i]>0 then
   sum:=sum+b[i];

 for j:=1 to M do
  A[IndexI,j]:=sum;
 for i:=1 to N do
  A[i,IndexJ]:=sum;

 writeln;
 for i:=1 to N do
  begin
   for j:=1 to M do
    write(A[i,j]:4);
   writeln;
  end;
 readln;
end.

 

[ayPinki]

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