1. Напишите программу, которая в последовательности натуральных чисел определяет количество четных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — количество четных чисел. Пример работы программы:
Входные данные
3
12
25
24
Выходные данные
2

2. Напишите программу, которая в последовательности натуральных чисел определяет произведение чисел, не оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число не оканчивающееся на 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — произведение чисел, не оканчивающихся на 3.
Пример работы программы:
Входные данные
3
12
23
4
Выходные данные
48

Самая тяжелая профессия - быть человеком. Это действительно, самая тяжелая профессия, так как не каждый может быть им. Человеком не появляются - им становятся.

Человеком может стать каждый. Необходимо только выучиться им быть: вырасти, набратся опыта пожилым, а так же и сверстникам, и остальным. Оборонять слабых. Попытаться прожить жизнь, без вредных повадок. Не дерзить, почитать старших, почитать суждения иных, слушать, созидать и тому сходственное.

Я размышляю, меньше всего шансов стать человеком у тех, кто делает все напротив вышесказанному. Я встречал малюсенько истинных людей, их вообщем то, мало осталось, но время все меняет. Меняет окружающую среду, меняет технологии, меняет и людей.

Стать человеком, могут все без исключения, основное поверить, и не лениться.

program raf105;

const

 n = 5;

var  

 a: array[1..n,1..n] of integer;

 i,j,num,n1,n2: integer;

begin

writeln('Вводите числа столбцов матрицы по очереди');

for i:=1 to n do

begin

 writeln('Столбец ',i);

 for j:=1 to n do

   readln(a[i,j]);

end;

for i:=1 to n do

begin

 n1:= 0;

 n2:= 0;

 for j:=1 to n do

 begin

   if (a[i,j] mod 2 <> 0) and (a[i,j] <> 0)

     then n1:= n1+1;

 end;

 for j:=1 to n do

 begin

   if (a[i,j] mod 2 = 0) and (a[i,j] <> 0)

     then n2:= n2+1;

 end;

 if n1 > n2

   then num:= i;

end;

writeln('Вывод: ',num);

end.