Жағдаяттық тапсырма. жандосқа дұрыс кеңес ұсыныңдар.

Зима – настоящая волшебница! ей свойственно преображать все вокруг. ни жуткий холод, ни пробирающий до самых костей хлесткий ветер не могут отобрать у зимы ее чарующего волшебства. ее белые краски способны превратить даже самый унылый пейзаж в искусную картину, написанную лучшим художником в мире. а в у зимы – неподражаемый знаток искусства. кто же это? конечно, мороз! этот проказник выводит на окнах своей магической кистью неповторимые узоры, единственные в своем роде. он подбирает особые краски, каких нет ни у одного художника. у мороза в запасе множество холстов, ни на одном из которых рисунок не повторится даже в самой маленькой детали.

В среде программирования QuickBASIC используется оконная технология организации диалога, рассчитанная на использование в качестве устройств ввода клавиатуры и специального манипулятора мышь. Маркер курсора клавиатуры или мыши позиционируется в одном из окон и нажимается клавиша <ENTER> или соответствующая кнопка мыши для выполнения выбранного действия связанного с этим окном.

Рассмотрим подробнее технологию организации диалога с использованием клавиатуры. Для выбора какого либо пункта меню необходимо нажать клавишу <ALT> фон слова File изменится и среда ожидает выбора конкретного раздела меню. Управляя курсором клавишами стрелки выбрать нужный раздел, после этого необходимо нажать клавишу <ENTER>. Под выбранным пунктом меню появится подменю. Управляя курсором клавишами < стрелки > выбрать нужный раздела подменю ,после этого необходимо нажать клавишу <ENTER>. В случае необходимости отмены исполнения выбранного пункта меню достаточно нажать клавишу <ESC>.

1)program test;
var
  a:array[1..12] of integer;
  i,min:integer;
begin
  for i:=1 to 12 do begin
    readln(a[i]);
    a[i]:=abs(a[i]);
    if i=1 then min:=a[i]
    else if a[i]<min then min:=a[i];
  end;
  writeln(min);
end.
2)
uses Crt ;
var
   A            : array [ 1 .. 100 ] of integer ;
   c            : integer ;
   i , j , N    : ShortInt ;
begin
     ClrScr ;
     Write ( 'Количество элементов массива = ' ) ;
     ReadLn ( N ) ;
     WriteLn ( 'Ввод массива' ) ;
     for i := 1 to N do
         Read ( A [ i ] ) ;
        
         A[i]:=abs(A[i]);
     WriteLn ;
     //Сортировка пузырьком//
     for i := 1 to N - 1 do begin
         for j := N downto i + 1 do begin
             if A [ j ] < A [ j - 1 ]
             then
             begin
                  c := A [ j ] ; A [ j ] := A [ j - 1 ] ; A [ j - 1 ] := c ;
             end ;
            
         end;
        
     end;
     for i:=n-2 to n do writeln(A[i]);
end .