Дано два одинаковые по длине одномерные массивы. Об’объединять их в третий массив, чередуя элементы первого и второго массивов.
Помогите,пожалуйста.ФРИ паскаль
Ответы
Ответ дал:
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.
Ответ дал:
0
А как можно переделать программу,что бы в ней были указатели
Ответ дал:
0
пожалуйста
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад