Цитата:
Сообщение от Chelios_rus
это всё что я пока сделал, помогите дополнить)
program ABC;
var array[1..6,1..8] of integer;
a,d,i,n,s:integer;
begin
|
М-да... достижение... Ну ладно, что уж с Вами поделаешь, раз обещал:
Код:
program ABC;
var
A:array[1..6,1..8] of integer;
i,j,Imin,Jmin,Min:integer;
begin
Randomize;
Min:=1000;
for i:=1 to 6 do
begin
for j:=1 to 8 do
begin
A[i,j]:=Random(20);
write(A[i,j]:4);
if A[i,j]<Min then
begin
Min:=A[i,j];
Imin:=i;
Jmin:=j;
end;
end;
writeln;
end;
writeln;
writeln('Imin= ',Imin,' Jmin= ',Jmin, ' A[',Imin,',',Jmin,']= ',A[Imin,Jmin]);
readln
End.