Ответ:
есть программа для такого решения
Глаза-зрительная,
руки-щупательная,
уши-слуховая,
язык-вкусовая,
нос-обонятельная.
Телескоп-что-бы изучать звёзды
микроскоп-что-бы изучать клетки
часы-для того чтобы всегда знать сколько времени
компьютер-для того чтобы обрабатывать информацию
Turbo Pascal
USES CRT;
VAR A:array[1..10] of integer;
B:array[1..5] of integer;
C:array[1..5] of integer;
i,bx,cx:integer;
BEGIN
CLRSCR;
Randomize;
For i:=1 to 10 do
begin
A[i]:=1+random(50);
Write(A[i],' ');
end;
Writeln;
bx:=1; cx:=1;
for i:=1 to 10 do
if (i mod 2 = 0) then
begin
B[bx]:=A[i];
bx:=bx+1;
end
else
begin
C[cx]:=A[i];
cx:=cx+1;
end;
For i:=1 to 5 do
Write(B[i],' ');
Writeln;
For i:=1 to 5 do
Write(C[i],' ');
READLN;
END.<span>
</span>