Дан целочисленный линейный массив на 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); - закрываем файлы.