Цитата:
Сообщение от Chelios_rus
спасибо, а можно что бы в ручную работала?
|
Можно:
Код:
program ABC;
var
A:array[1..6,1..8] of integer;
i,j,Imin,Jmin,Min:integer;
begin
Min:=1000;
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
write('A[',i,',',j,']= ');
readln(A[i,j]);
if A[i,j]<Min then
begin
Min:=A[i,j];
Imin:=i;
Jmin:=j;
end;
end;
end;
writeln;
for i:=1 to 6 do
begin
for j:=1 to 8 do
write(A[i,j]:4);
writeln;
end;
writeln;
writeln('Imin= ',Imin,' Jmin= ',Jmin, ' A[',Imin,',',Jmin,']= ',A[Imin,Jmin]);
readln
End.