:

5521900
,
5523500 ,
5523600 ,
5811200 ( ),
5811300 (
),
5320200
,
5140900
(

).







( )

, () , , , , . : , . , .

.

, . .

.

. 10*10 . , , [, d], . , .

1 . .

2. ( ).

3. ( ).

4. .

5. .

6. .

7. .

-

(10, 10) .

D .

m(10) min(10) - , .

Imax(l0) Imin(l0) - , , , .

) 㠠 -.

1

PROGRAMM PRIMER;

VAR

A: ARRAY [1..10,1..10] OF REAL; (* *)

C,D: REAL; (* *)

I,J: INTEGER; (* *)

MAX, MIN: ARRAY [1..10] OF REAL; (* *)

(* *)

IMAX, IMIN: ARRAY [1..10] OF INTEGER; (* *)

BEGIN

WRITELN (' ');

FOR I:=l TO 10 DO BEGIN

FOR J:=l TO 10 DO READ(A[I,J]); WRITELN;

END;

WRITE (' '); READ (, D);

FOR I:=l TO 10 DO WRITELN('MIN=', MIN[I], ', ', IMIN[I],';

MAX=', MAX[I], '; ', IMAX[I]);

END.

) . .

.

2

FOR J:=l TO 10 DO

BEGIN

J

END;

) . .

, .

3

FOR 1:=1 10 DO WHILE A[I,J] # DO

BEGIN

END;

) . .

4

IF ( <= A[I, J]) AND (A[I, <= D) THEN

BEGIN

END;

) .

.

5

IF A[I, J]>=MAXT THEN BEGIN MAXT:= A[I, J]; IMAXT:= I; END;

IF A[I, J]<= MINT THEN BEGIN MINT:= A[I, J]; IMINT:= I; END;

: MINT, IMAXT IMINT, REAL INTEGER .

) . .

, .

, MINT - (, d)?

, , , , .

, 堠

: = ; MINT:= D;

M: = 0; IMINT: = 0;

J-e , :

MAX[J]:= ; IMAX[J]:= M;

MIN[J]:= MINT; IMIN[J]:= IMINT;

.

) . .

, , .

,

MAX(J), MIN(J), IMAX(J), IMIN(J)

, MINT, IMAXT, IMINT,

, ( ), .. - , , .

.

1

PROGRAMM PRIMER;

VAR

A: ARRAY [1..10, 1..10] OF REAL; (* *)

C,D: REAL; (* *)

I,J: INTEGER; (* *)

MAX, MIN: ARRAY[1..10] OF REAL; (* *)

(* *)

IMAX, IMIN: ARRAY [1..10] OF INTEGER; (* *)

MAXT, MINT: REAL; (* , *)

(* *)

IMAXT, IMINT: INTEGER; (* *)

BEGIN

WRITELN (' :');

FOR I:=l 10 DO

BEGIN

FOR J:= 1 TO 10 DO READ(A[I, J]); WRITELN;

END;

WRITE (' '); READLN (, D);

FOR J:=l TO 10 DO (* *)

BEGIN

IMAXT:= 0; IMINT:= 0; MINT:= C; MINT:= D;

(* *)

FOR I:=l TO 10 DO WHILE A[I,J] # 0 DO

BEGIN

IF (C<=A[I, J]) AND (A[I, J]< = D) THEN

(* CD? *)

BEGIN

IF A[I, J]>= MAXT (* ? *)

THEN BEGIN MAXT:=A[I, J]; IMAXT:= I; END;

IF [I, J]<= MINT (* ? *)

THEN BEGIN MINT:=A[I, J]; IMINT:= I; END;

END;

END;

MAX[J]:= MAXT; MIN[J]:=MINT;

IMAX[J]:= IMAXT; IMIN[J]:= IMINT;

END;

FOR I:=l TO 10 DO WRITELN('MIN=', MIN[I],', ',IMIN[I],

';MAX=', MAX[I], ', ', I|I]);

END.