Дана программа: 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)?
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)?
More Questions From This User See All