Question

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

Answer 1

В переменной m1 ищется максимальный четный элемент массива, значит m1=26
В переменной m2 ищется минимальный элемент массива, кратный 3, значит m2 =6