Дан целочисленный линейный массив на N элементов. Найти количество четных элементов массива - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Дан целочисленный линейный массив на N элементов. Найти количество четных элементов массива. Входные данные: В первой строке входного потока дано единственное целое число N (0 < N < 32767) Во второй строке перечисленны значения элементов массива. Значения элементов не превышают по модулю 32000. Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 4 10 98 89 843 Пример выходного файла (output.txt): 2

Решение задачи: «Дан целочисленный линейный массив на N элементов. Найти количество четных элементов массива»

textual
Листинг программы
Var f,g:text;
    i,n,k,m:integer;
Begin
    Assign(f,'input.txt');Reset(f);
    read(f,n);
    For i:=1 to n do
    Begin
      read(f,m);
      if m mod 2 = 0 then k:=k+1;
    End;
    Assign(g,'output.txt');Rewrite(g);
    write(g,k);
    Close(f);Close(g);
End.

Объяснение кода листинга программы

В данном коде происходит чтение данных из файла input.txt, где каждый элемент массива представлен целым числом. Затем происходит итерация по каждому элементу массива. Если текущий элемент четный (т.е. его остаток от деления на 2 равен нулю), то переменная k увеличивается на единицу. После этого данные записываются в файл output.txt. Вот список действий, представленный в виде комментариев:

  • Assign(f,'input.txt');Reset(f); - присваиваем переменной f имя файла для чтения и сбрасываем его состояние.
  • read(f,n); - читаем n элементов из файла input.txt и сохраняем их в массиве.
  • For i:=1 to n do - начинаем цикл, который будет выполняться n раз, где каждая итерация будет обрабатывать один элемент массива.
  • read(f,m); - читаем следующий элемент массива из файла input.txt.
  • if m mod 2 = 0 then k:=k+1; - проверяем, является ли текущий элемент четным (остаток от деления на 2 равен нулю). Если это так, то увеличиваем значение переменной k на единицу.
  • End; - закрываем цикл.
  • Assign(g,'output.txt');Rewrite(g); - присваиваем переменной g имя файла для записи и сбрасываем его состояние.
  • write(g,k); - записываем значение переменной k в файл output.txt.
  • Close(f);Close(g); - закрываем файлы.

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы