Методические указания по программированию на языке Pascal. Юшков С.А - 10 стр.

UptoLike

I>9
Min[K]=Elem[1,K]
I
=
2
Min[K]>Elem[I,K]
Min[K]=Elem[I,K]
I
=
I
+
1
I>9
K
=
K
+
1
K>9
I
=
1
K
=
1
Elem
[
i
,
k
]
K
=
K
+
1
K>9
Max
[
i
]
I
=
I
+
1
I>9