Помогите пж за спам бан
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;
Answers & Comments
Verified answer
Ответ:
значение переменной 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)
ложь И истина - условие ложно (ничего не делаем)