var
i: integer;
a: array [1..10] of integer;
b, c: array [1..5] of integer;
begin
writeln('Исходный массив:');
randomize;
for i := 1 to 10 do
a[i] := random(20) - 10;
write(a[i], ', ');
if i mod 2 = 0 then b[trunc((i - 1) / 2) + 1] := a[i] else c[trunc((i - 1) / 2) + 1] := a[i];
end;
writeln;
writeln('Полученные массивы:');
for i := 1 to 5 do write(b[i], ' , '); writeln;
for i := 1 to 5 do write(c[i], ' , ');
end.
Объяснение:
var
i: integer;
a: array [1..10] of integer;
b, c: array [1..5] of integer;
begin
writeln('Исходный массив:');
randomize;
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(a[i], ', ');
if i mod 2 = 0 then b[trunc((i - 1) / 2) + 1] := a[i] else c[trunc((i - 1) / 2) + 1] := a[i];
end;
writeln;
writeln('Полученные массивы:');
for i := 1 to 5 do write(b[i], ' , '); writeln;
for i := 1 to 5 do write(c[i], ' , ');
end.
Объяснение: