Question

Помогите пж за спам бан
Var A: Array[1..6] of Integer; i, K: Integer;
Елементи масиву А мають значення:
А[i] −11 22 8 3 −8 1
Знайди значення змінної K після виконання фрагменту програми:
K := 0;
For i := 1 To 6 do
. .If (A[i] mod 2 =0) And (A[i]>0) Then K := K+ 1;

Answer 1

Ответ:

значение переменной K после выполнения фрагмента программы равно 2

Объяснение:

Разберём фрагмент программы:

массив: А[1] = −11     А[2] = 22     А[3] = 8     А[4] = 3     А[5] = −8     А[6] = 1

K = 0 (начальное значение переменной K)

для i от 1 до 6 выполнить (цикл с параметром выполнится 6 раз, переменная-счётчик i будет изменятся от 1 до 6 с шагом 1 последовательно принимает значения 1, 2, 3, 4, 5 и 6)

если (A[i] mod 2 = 0) И (A[i] > 0) (в цикле выполняется неполное ветвление, если условие, значение текущего элемента массива является чётным И положительным числом, истинно)

то K = K + 1 (увеличиваем текущее значение переменной K на 1)

если условие ложно, то ничего не делаем

И - истинно, когда истинны оба исходных высказывания

Рассмотрим каждую итерацию цикла:

i = 1

А[1] = −11

A[1] mod 2 = 0 - ложно (−11 mod 2 = −1)

A[1] > 0 - ложно (−11 < 0)

ложь И ложь - условие ложно (ничего не делаем)

i = 2

А[2] = 22

A[2] mod 2 = 0 - истинно (22 mod 2 = 0)

A[2] > 0 - истинно (22 > 0)

истина И истина - условие истинно

K = 0 + 1 = 1 (0 начальное значение переменной K)

i = 3

А[3] = 8

A[3] mod 2 = 0 - истинно (8 mod 2 = 0)

A[3] > 0 - истинно (8 > 0)

истина И истина - условие истинно

K = 1 + 1 = 2 (1 значение переменной K, после предыдущего повтора цикла)

i = 4

А[4] = 3

A[4] mod 2 = 0 - ложно (3 mod 2 = 1)

A[4] > 0 - истинно (3 > 0)

ложь И истина - условие ложно (ничего не делаем)

i = 5

А[5] = −8

A[5] mod 2 = 0 - истинно (−8 mod 2 = 0)

A[5] > 0 - ложно (−8 < 0)

истина И ложь - условие ложно (ничего не делаем)

i = 6

А[6] = 1

A[6] mod 2 = 0 - ложно (1 mod 2 = 1)

A[6] > 0 - истинно (1 > 0)

ложь И истина - условие ложно (ничего не делаем)