Question

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

Answer 1

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.