Массив. Определить каких значений больше четных или не четных - Turbo Pascal

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

Массив 10 элементов. Определить каких значений больше четных или не четных и напечатать. Значения должны вводиться с клавиатуры.

Решение задачи: «Массив. Определить каких значений больше четных или не четных»

Листинг программы

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, то выводится сообщение о том, что четных и нечетных чисел в массиве равное количество. Таким образом, данный код позволяет определить, каких значений больше в массиве - четных или нечетных.