Даны два массива А и В, состоящие из 6 элементов. Объединить два массива в один массив с чередованием элементов исходных массивов. Вывести новый массив. паскаль.
Answers & Comments
nikolac
Uses crt; const n=6; var i:integer; a,b:array[1..6] of integer; begin writeln('Введите элементы массива A.'); for i:=1 to n do read(a[i]); writeln('Введите элементы массива B.'); for i:=1 to n do read(b[i]); for i:=1 to n do write(a[i],' ',b[i],' '); end.
2 votes Thanks 2
kage1998
Program z10; VAR a,b: Array [1..6] of integer; i:integer; Begin Randomize; For i:=1 to 6 do begin a[i]:=random(999); end; For i:=1 to 6 do begin b[i]:=random(999); end; For i:=1 to 6 do begin write(a[i],' ',b[i],' '); end; end.
Answers & Comments
const n=6;
var i:integer;
a,b:array[1..6] of integer;
begin
writeln('Введите элементы массива A.');
for i:=1 to n do
read(a[i]);
writeln('Введите элементы массива B.');
for i:=1 to n do
read(b[i]);
for i:=1 to n do
write(a[i],' ',b[i],' ');
end.
VAR
a,b: Array [1..6] of integer;
i:integer;
Begin
Randomize;
For i:=1 to 6 do
begin
a[i]:=random(999);
end;
For i:=1 to 6 do
begin
b[i]:=random(999);
end;
For i:=1 to 6 do
begin
write(a[i],' ',b[i],' ');
end;
end.