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;