Internet










 

 

1 ( )

N, . ­ . , ­ .

. , , , . , , .

PROGRAM PG5_1;

CONST

T = 100;

S = 100;

VAR A : ARRAY[1..T, 1..S] OF INTEGER;

N, M, IM, JM, I, J, MIN, : INTEGER;

BEGIN

WRITE('BBETE N = ');

READLN(N);

WRITE('BBETE = ');

READLN(M);

FOR I := 1 TO N DO BEGIN

WRITELN('BBTE ', M, ' ');

FOR J := 1 DO

READ(A[I, J])

END;

MIN :=A[1, 1];

IM := 1;

JM := 1;

K := 0;

FOR I := 1 TO N DO

FOR J := 1 TO M DO

IF MIN>A[I, J] THEN

BEGIN

K:= 1;

IM:=I;

JM:=J;

MIN := A[l, J]

END

ELSE

IF MIN = A[l, J] THEN

:= K+1;

IF = 1 THEN

BEGIN

WRITELN('B MIN =', MIN);

WRITELN('B ', IM, ', ', JM, ' ')

END

ELSE

BEGIN

WRITELN('B ', , ' MIN = ', MIN);

FOR I := IM TO N DO

FOR J := 1 TO M DO

IF MIN = A[l, J] THEN

WRITELN('B ', I, ' ', J)

END

END.

:

- ;

- ;

- , ;

- ;

- , .

:

- ;

N, - ;

I, J - ;

- ;

IM, JM - ;

MIN - .
 
{SITELINK-S263} {/SITELINK}


 
     
   
 


!
  >>>
 

, !
  >>>
 

!
  >>>
 

!
  >>>
 

!
  >>>
 


...

 


Subscribe.Ru