Даны два массива: А (10) и В (10). Сформируйте массив С (10), предварительно определив его длину, включая из массивов А и В только четные по номеру элементы. Вы ведите на экран массивы А (10), В (10) и С (10).

Var

i:integer;

a, b, c:array[1 ... 10]

of integer;

begin

writeln ('Массив A:') ;

for i:=1 to 10 do

begin

a[i]:=random (10) ;

if i mod 2=0 then c[i-1]:=a[i];

write (a[i],' ') ;

end;

writeln;

writeln ('Массив B:') ;

for i:=1 to 10 do

begin

b[i]:=random (10) ;

if i mod 2=0 then c[i]:=b[i];

write (b[i],' ') ;

end;

writeln;

writeln ('Массив C:') ;

for i:=1 to 10 do

write (c[i],' ') ;

end.