Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел - Pascal
Формулировка задачи:
Дан целочисленный массив A(N) Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел.
Решение задачи: «Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел»
textual
Листинг программы
var mas:array [1..100] of longint; min,kol,i,n:longint; begin readln(n); for i:=1 to n do readln(mas[i]);{записываем в массив} if(mas[1] mod 2 = 0) then{ставим минимум четных} begin min:=mas[1]; kol:=1; end else begin min:=mas[1]-1; kol:=1; end; for i:=2 to n do begin if(mas[i] mod 2=0) then{если четное, то проверим, меньше ли оно чем текущий минимум, иначе увеличиваем счетчик} begin if(mas[i]<min) then min:=mas[i]; end else kol:=kol+1; end; writeln('минимум четных ',min,' количество нечетных ',kol); end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal. Он предназначен для решения задач, связанных с обработкой данных. Переменные в коде имеют следующие значения:
- mas: массив, в котором хранятся числа.
- min: переменная, в которой будет храниться минимальное значение из четных чисел.
- kol: переменная, в которой будет храниться количество нечетных чисел.
- i: переменная, с помощью которой происходит итерация по числам в массиве.
- n: количество чисел в массиве. Код начинается с объявления переменных и массива. Затем происходит чтение количества чисел из стандартного ввода. Далее происходит итерация по числам в массиве. Если число четное, то оно сравнивается с текущим минимальным значением. Если число меньше текущего минимального значения, то оно становится новым минимальным значением. Если число нечетное, то увеличивается счетчик нечетных чисел. После завершения итерации выводится результат - минимальное значение из четных чисел и количество нечетных чисел.