Ввести массив из n чисел, разбить массив на две примерно равные части и вывести числа

[kot_]

Ввести массив из n чисел, разбить массив на две примерно равные части и вывести числа

Ввести массив из n чисел, разбить массив на две примерно равные части и вывести числа из каждой части в отдельном окне, получив два окна с элементами; окончание работы программы при нажатии на клавишу «B»(CRT)

 

[Vladimir_S]

Uses CRT;

Const
 n=160;

Var
 i,j:byte;
 A:Array[1..n] of Integer;
 C:Char;

Begin
 Randomize;
 Repeat
  ClrScr;
  Window(1,1,80,9);
  for i:=1 to n do
   begin
    A[i]:=Random(1000);
    write(A[i]:4);
   end;
  Window(1,10,80,14);
  TextBackground(10);
  TextColor(1);
  GoToXY(1,1);
  for i:=1 to (n div 2) do write(A[i]:4);
  Window(1,16,80,20);
  TextBackground(3);
  TextColor(4);
  GoToXY(1,1);
  for i:=(n div 2)+1 to n do write(A[i]:4);
  NormVideo;
  Window(1,22,80,22);
  GotoXY(1,21);
  Write('Press "B" to stop the program or other key to continue...');
  KeyPressed;
  C:=Readkey;
 Until C='B';
End.