Question

Дана программа:
Program E2_1;

Var a: Array [1..8] Of Integer;

M, k: Integer;

Begin

For k := 1 To 8 Do Readln (a[k]);

M := a[1];

For k := 2 To 8 Do

If M < a[k] Then M := a[k];

Write (M)

End.

Сколько раз будет выполнен оператор M := a[k] при заданном массиве (3, 8, 7, 9, 4, 10, 2, 12)?

Answer 1

8  раз For k := 1 To 8 Do Readln (a[k]);

Answer 2

Решение приложено ниже