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.