vbcx

← разместить еще код

Расшаренный код:

program dfds;
var a:array [1..2,1..2] of integer;
min,j,i,k,minj:integer;
t:boolean;

begin
	t:=false;		
	min:=2323;
	
	for i:=1 to 2 do 
	for j:=1 to 2 do
	readln (a[i,j]);
	
	for i:= 1 to 2 do {пробегает по строкам}
		begin
		 for j:=1 to 2 do {пробегает по столбикам}
		 if a[i,j]<min then begin 
							min:=a[i,j];
							minj:=j;
							end;
		  for k:=1 to 2 do
		  if a[i,minj]>a[k,minj] then 
		  t:=true;
		  
		  if t=false then writeln (i,' ',minj);
		end;
end.