Информатика

Диодора

27 мая, 07:09

В программе описан одномерный массив следующим образом:

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;