Дано два одинаковые по длине одномерные массивы. Об’объединять их в третий массив, чередуя элементы первого и второго массивов.
Помогите,пожалуйста.ФРИ паскаль
Ответы на вопрос
Ответил FreeProgrammer
0
Если еще актуально:
program z;
const n=3;
var a,b:array[1..n] of real;
c:array[1..(2*n)] of real;
i,k:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
readln(b[i]);
k:=1;
for i:=1 to n do
begin
c[k]:=a[i];
writeln(c[k]);
k:=k+1;
c[k]:=b[i];
writeln(c[k]);
k:=k+1;
end;
end.
program z;
const n=3;
var a,b:array[1..n] of real;
c:array[1..(2*n)] of real;
i,k:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
readln(b[i]);
k:=1;
for i:=1 to n do
begin
c[k]:=a[i];
writeln(c[k]);
k:=k+1;
c[k]:=b[i];
writeln(c[k]);
k:=k+1;
end;
end.
Ответил nf781
0
А как можно переделать программу,что бы в ней были указатели
Ответил nf781
0
пожалуйста
Новые вопросы