В программе описан одномерный массив следующим образом: A:array [1..17] of integer; Что будет выведено на экран после выполнения процедуры Massiv, если в исходном массиве записаны следующие числа? 6 18 33 12 29 16 13 33 24 24 ...

В программе описан одномерный массив следующим образом: 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;