Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с
клавиатуры. Размер n.
Kol – количество элементов в последовательности В
К – номер элемента последовательности В
Program newmasiv;
Var a: array[1..100] of integer;
b: array[1..100] of integer;
kol, n, i, k: integer;
Begin
kol:=0; k:=0;
write ('n='); readln (n);
For i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln (a[i]);
if a[i] mod 2=0 then
begin
k:=k+1; b[k]:=a[i]; kol:=kol+1;
end;
end;
if kol=0 then writeln(‘четных элементов нет’) else
for k:=1 to kol do write(‘b[‘,k,’]=’,b[k]);
end;

1) дикие животные

2) одежда

3) имена существительные среднего рода

4) деревья

5) плодовые деревья

6) молочные продукты

7) инструменты столяра

8) ягодные кустраники

9) слова с безударными гласными (словарные слова)

10) имена существительные женского рода

11) имена существительные 3 склонения женского рода

12) имена существительные мужского рода с шипящей на конце слова

13) числа

14) единицы измерения времени

15) один месяц каждого времени года

16) месяцы года, в которых 31 день

17) каждое число имеет свои признаки делимости

18) простые числа (деляться только на самого себя и на 1)

Волк,медведь,лиса,заяц  - животные леса

Платье,пиджак,рубашка,брюки - одежда

Кино пальто,радио,шоссе - существительные среднего рода

Береза,тополь,кедр,ель,сосна - деревья

Яблоня,груша,слива,вишня - плодовые деревья

Молоко,кефир,творог,сметана - молочные продукты

Молоток,клещи,топор,пила - интсрументы плотника

Смородина,крыжовник,малина - кустраники

Корабль,колокол,колесо,корова - существительные с непроверяемыми гласными в корне слова

Корова,сорока,ворона,дорога - существительные с орфограммой ОРО

Печь,речь,дочь,ночь, - существительные 3 склонения

Луч,меч,плащ,овощ - существительные мужского рода

Нуль,сто,петьдесят,тысяча - числительные

Минута,секунда,час,сутки - единицы измерения времени

Февраль,май,август,сентябрь - месяцы года

Май,август,октябрь,декабрь - месыцы гоад, в которых 31 день

1,2,5,9 - числа

1,2,11,29 - простые числа (делитель только 1 и само число)