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

UptoLike

Алгоритм
I=1
начало
K = 1
Elem[I,K] =
K = K+1
K>9
I
=
I
+
1
I>9
I
=
1
Max[I]
=
Elem[I,1]
K
=
2
Max[I]<Elem[I,K]
Max[I]
=
Elem[I,K]
K
=
K+1
K>9
I
=
I
+
1