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;