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

kot_ · 06.03.2017, 20:43

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

Vladimir_S · 07.03.2017, 11:49

Код:

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.

06.03.2017, 20:43	#1 (permalink)
kot_ Новичок Регистрация: 06.03.2017 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ввести массив из n чисел, разбить массив на две примерно равные части и вывести числа Ввести массив из n чисел, разбить массив на две примерно равные части и вывести числа из каждой части в отдельном окне, получив два окна с элементами; окончание работы программы при нажатии на клавишу «B»(CRT)

06.03.2017, 20:43
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Подскажу вам, что решение проблемы может крыться в аналогичных обсуждениях Pascal: Числа, не входящие в одномерный массив Assembler. Вывести массив размером 5*5 с помощью цикла

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070