program raf105;
var
a,b:array[1..5] of integer;
c:array[1..10] of integer;
i:integer;
begin
writeln('Заполните первый массив:');
for i:=1 to 5 do
readln(a[i]);
writeln('Заполните второй массив:');
readln(b[i]);
i:=0;
write('Третий массив: ');
while i < 10 do
i:= i+2;
c[i-1]:= a[i div 2];
c[i]:= b[i div 2];
write(c[i-1],' ',c[i],' ');
end;
end.
program raf105;
var
a,b:array[1..5] of integer;
c:array[1..10] of integer;
i:integer;
begin
writeln('Заполните первый массив:');
for i:=1 to 5 do
readln(a[i]);
writeln('Заполните второй массив:');
for i:=1 to 5 do
readln(b[i]);
i:=0;
write('Третий массив: ');
while i < 10 do
begin
i:= i+2;
c[i-1]:= a[i div 2];
c[i]:= b[i div 2];
write(c[i-1],' ',c[i],' ');
end;
end.
PascalABC 3.4.2