ege-inf.ru / Подготовка к ЕГЭ по информатике 2018

Профильная информатика:
подготовка к ЕГЭ и олимпиадам

Вариант №1801

Добавлен 13 октября 2017 в 1:51. Изменён 24 декабря 2017 в 21:20. Скачать PDF

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Задание

Дан массив, содержащий 2018 целых чисел. Необходимо определить количество элементов этого массива, для которых истинно логическое выражение \(\left(A[i]\neq10\right)\rightarrow\left(3\cdot A[i]\geq9\right)\). Например, в массиве из 4-х элементов, равных соответственно 3; –2; 10; 0, имеется два числа — 3 и 10, для которых вышеуказанное логическое выражение истинно.

Исходные данные объявлены так, как показано ниже. Запрещается использовать не описанные переменные, но допускается не использовать некоторые из них.

  • Копировать
    const
      N = 2018;
    var
      a : array [0 .. N - 1] of integer;
      i, m : integer;
    begin
      for i := 0 to N - 1 do
        readln(a[i]);
      ...
    end.
    
  • Копировать
    #include <iostream>
    #define N 2018
    
    int main() {
      int a[N], i, m;
      for (i = 0; i < N; i++)
        std::cin >> a[i];
      ...
      return 0;
    }
    
  • Копировать
    CONST N = 2018
    DIM A(N - 1) AS INTEGER
    DIM I, M AS INTEGER
    FOR I = 0 TO N - 1
      INPUT A(I)
    NEXT I
    ...
    END
    
  • Копировать
    # допускается также использо-
    # вание целочисленной
    # переменной m
    N = 2018
    a = []
    for i in range(N) :
      a.append(int(input()))
    ...
    

В качестве ответа необходимо привести фрагмент программы, который должен находиться на месте многоточия. Допускается решение на другом языке программирования. В этом случае укажите название языка и используемую версию. При этом необходимо использовать те же самые исходные данные и переменные, какие были предложены в условии.