1)Даны два массива A(10) и В(10) Нужно сформировать массив С(10) предварительно определив его длину, Включая из массивов А и В только четные по номеру элементов. И нужно вывести на экран массивы А(10), В(10), С(10). 2) Информация о средней суточной температуре воздуха за месяц задана в виде массива. Определите и выведите на экран, сколько раз температура была ниже среднемесячной.
помогите
Answers & Comments
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;