В программе описан одномерный массив следующим образом:
A:array [1..17] of integer;
Что будет выведено на экран после выполнения процедуры Massiv, если в исходном массиве записаны следующие числа?
6 18 33 12 29 16 13 33 24 24 17 6 22 26 33 31 4
Procedure Massiv;
Var i, m1, m2: integer;
Begin
m1 := A[1]; m2 := A[1];
For i := 1 To 17 do begin
If A[i] Mod 2 = 0 Then If m1 < A[i] Then m1 := A[i];
If A[i] Mod 3 = 0 Then If m2 > A[i] Then m2 := A[i];
End;
Writeln(m1:4, m2:4);
End;