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

Answer 2

Давайте разберемся с этим кодом пошагово.

Итак, у вас есть одномерный массив `A` размером от 1 до 17, содержащий целые числа. Ваша задача - написать процедуру `Massiv`, которая выполняет некоторые операции с элементами массива и выводит результат на экран.

Давайте рассмотрим код процедуры по шагам:

1. `m1 := A[1];` и `m2 := A[1];` - инициализация переменных `m1` и `m2` первым элементом массива.

2. `For i := 1 To 17 do` - цикл от 1 до 17.

3. `If A[i] Mod 2 = 0 Then If m1 < A[i] Then m1 := A[i];` - Если текущий элемент массива четный и больше, чем текущее значение `m1`, то присвоить `m1` это значение.

4. `If A[i] Mod 3 = 0 Then If m2 > A[i] Then m2 := A[i];` - Если текущий элемент массива делится на 3 и меньше, чем текущее значение `m2`, то присвоить `m2` это значение.

5. `Writeln(m1:4, m2:4);` - Вывести значения `m1` и `m2` на экран.

Теперь давайте рассмотрим ваши исходные данные:

A: array [1..17] of integer = (6, 18, 33, 12, 29, 16, 13, 33, 24, 24, 17, 6, 22, 26, 33, 31, 4);

Выполним процедуру `Massiv` с этим массивом:

1. Первая итерация цикла: `m1 = 6`, `m2 = 6`, так как 6 четное и делится на 3.

2. Вторая итерация: `m1` не меняется (18 не четное), `m2` становится 12, так как 18 делится на 3 и меньше текущего `m2`.

3. Третья итерация: `m1` не меняется, так как 33 не четное, `m2` становится 12, так как 33 делится на 3 и меньше текущего `m2`.

4. И так далее до последней итерации.

Итак, после выполнения процедуры `Massiv` будет выведено на экран:

 6   12

Это означает, что максимальное четное число в массиве - 6, и минимальное число, делящееся на 3 - 12.