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)

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

Answer 2

Згідно з наданою програмою, вам потрібно знайти значення змінної K після виконання фрагменту коду.

Окремо розглянемо фрагмент коду:

mathematicaCopy code
K := 0;
For i := 1 To 6 do
  If (A[i] mod 2 = 0) And (A[i] > 0) Then
    K := K + 1;

У цьому фрагменті програми ви починаєте зі значення K = 0. Потім ви проходите по кожному елементу масиву A і перевіряєте дві умови: A[i] mod 2 = 0 (елемент є парним числом) і A[i] > 0 (елемент більше за нуль). Якщо обидві умови виконуються, то збільшуєте значення K на 1.

За даними, що надані, масив A має такі значення:

A[1] = -11 A[2] = 22 A[3] = 8 A[4] = 3 A[5] = -8 A[6] = 1

Тепер пройдемо по кожному елементу і виконаємо перевірки:

При i = 1: A[1] mod 2 = -11 mod 2 = -1 (не парне число) Умова не виконується, K залишається 0.

При i = 2: A[2] mod 2 = 22 mod 2 = 0 (парне число) A[2] > 0 (22 > 0) Обидві умови виконуються, тому K збільшується на 1. Зараз K = 1.

При i = 3: A[3] mod 2 = 8 mod 2 = 0 (парне число) A[3] > 0 (8 > 0) Обидві умови виконуються, тому K збільшується на 1. Зараз K = 2.

При i = 4: A[4] mod 2 = 3 mod 2 = 1 (не парне число) Умова не виконується, K залишається 2.

При i = 5: A[5] mod 2 = -8 mod 2 = 0 (парне число) A[5] > 0 (-8 > 0) Обидві умови виконуються, тому K збільшується на 1. Зараз K = 3.

При i = 6: A[6] mod 2 = 1 mod 2 = 1 (не парне число) Умова не в