Выбери команду, которая подключает нужную библиотеку для создания графического интерфейса с

2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт

а:       где хотите, там и бранитесь, а на табаке помиритесь.

б:       умел ошибиться, умей и поправиться.

в:       рожь кормит сплошь, а пшеничка по выбору.

г:       всякая птица свое гнездо любит.

д:       широка дорожка ерошке.

е:       и мед горчит, если его много.

ж:     ржавое железо не блестит.

з:       если мало в привозе, то много в запросе.

и:       истина выдерживает проверку опытом.

к:       вода размывает канал в слабом месте.

л:       глупа та птица, которой гнездо свое не мило.

м:     на ходу подметки режет.

н:       где хвост — начало, там голова — мочало.

о:       всякой молодец на свой образец.

п:       закон — что паутина: шмель проскочит, а муха увязнет.

р:       дело сделал на копейку, а раструбил на всю деревню.

с:     долгие сборы на короткий век.

т:     юность — время золотое: ест, и пьет, и спит в покое.

у:     шито-крыто, а узелок-то тут.

ф:   два фонаря на пустой каланче.

х:     как не хитри, а правды не перехитришь.

ц:     цветет старость сединою.

ч:     к мягкому воску печать, к молодому – ученье.

ш:   шумит дубровушка к погодушке.

щ:   сигарета — щелчок по легким, бутылка пива — удар по почкам,           рюмка водки — убийство печени, кусок сала — прессинг желудка.

э:     каково эхо, такова и конюшня.

ю:   верный вассал двум сюзеренам не служит.

я:     откладывать в долгий ящик.

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед

var a: array[1..100] of integer;

i,s: integer;

begin

  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;

      if a[i]> =0 then s: = s+a[i];   end;

  for i: = 1 to n do begin

      if a[i]< 0 then a[i]: =s;

      write(a[i]: 4);       if i mod 10=0 then writeln;

  end;

end.