Задано 2 массива, содержащих по 5 чисел. сформировать новый массив, включая в него сначала все элементы первого массива, затем все элементы второго массива. в паскале
Var a,b:array [1..5] of longint; c:array [1..10] of longint; i:integer; begin {for i:=1 to 5 do begin read(a[i]); end; for i:=1 to 5 do begin read(b[i]); end;} Это раскомментировать, если надо считывать массив из файла for i:=1 to 10 do begin if i<6 then c[i]:=a[i] else c[i]:=b[i-5]; end; end. // В массив c записываются значение массивов a,b
c:array [1..10] of longint;
i:integer;
begin
{for i:=1 to 5 do
begin
read(a[i]);
end;
for i:=1 to 5 do
begin
read(b[i]);
end;} Это раскомментировать, если надо считывать массив из файла
for i:=1 to 10 do
begin
if i<6 then c[i]:=a[i] else c[i]:=b[i-5];
end;
end. // В массив c записываются значение массивов a,b