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

помогите

1

Ответы и объяснения

2013-05-15T20:24:19+04:00

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;