Цитата:
Сообщение от ayPinki
в общем помогите достроить программу плиз.
|
Извольте. Вот чего я у Вас совсем не понял, так это на кой пёс занадобился 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.