1) Даны два массива A (10) и В (10) Нужно сформировать массив С (10) предварительно определив его длину, Включая из массивов А и В только четные по номеру элементов. И нужно вывести на экран массивы А (10), В (10), С (10). 2) Информация о средней суточной температуре воздуха за месяц задана в виде массива. Определите и выведите на экран, сколько раз температура была ниже среднемесячной.

помогите

const N=10

var i, k:integer;

A:array [1 ... N] of integer;

B:array [1 ... N] of integer;

C:array [1 ... N] of integer;

begin

for i:=1 to N do

begin

read (A[i]) ;

end;

k:=1;

for i:=1 to N do

begin

if i mod 2=0 then C[k]:=A[i];

k:=k+1;

end;

for i:=1 to N do

begin

read (B[i]) ;

end;

for i:=1 to N do

begin

if i mod 2 = 0 then C[k]:=B[i];

k:=k+1;

end;

for i:=1 to N do

begin

write (A[i]) ;

end;

for i:=1 to N do

begin

write (B[i]) ;

end;

for i:=1 to N do

begin

write (C[k]) ;

end;