Массив. Определить каких значений больше четных или не четных - Turbo Pascal
Формулировка задачи:
Решение задачи: «Массив. Определить каких значений больше четных или не четных»
const n=10;
var
a: array [1..10] of integer;
i, k , l: integer;
begin
writeln ('Введите элементы массива:');
for i:=1 to n do read (a[i]);
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then k:=k+1
else l:=l+1;
end;
if (k>l) then writeln (k, '>', l, ' - четных чисел в массиве больше')
else if (k<l) then writeln (k, '<', l, ' - не четных чисел в массиве больше')
else writeln (k, ' = ', l, ' - четных и не четных чисел в массиве равное количество');
end.
Объяснение кода листинга программы
В данном коде объявляется переменная n со значением 10, создается массив a типа array [1..10] of integer, где каждый элемент массива может содержать целое число. Затем происходит чтение элементов массива из ввода пользователя.
Далее идет цикл for i:=1 to n do, который выполняется 10 раз (от 1 до 10). Внутри цикла проверяется, является ли текущий элемент массива четным или нечетным. Если остаток от деления текущего элемента на 2 равен нулю, то переменная k увеличивается на единицу. Если остаток от деления текущего элемента на 2 не равен нулю, то переменная l увеличивается на единицу.
После выполнения цикла проверяется, какая из переменных k или l больше. Если k больше l, то выводится сообщение о том, что четных чисел в массиве больше. Если k меньше l, то выводится сообщение о том, что нечетных чисел в массиве больше. Если k равно l, то выводится сообщение о том, что четных и нечетных чисел в массиве равное количество.
Таким образом, данный код позволяет определить, каких значений больше в массиве - четных или нечетных.