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 ( и правильно ли они указаны), правильно ли найдены мин/макс...
в общем помогите достроить программу плиз.
и подскажите начало второй.