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

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

👇

Ответ:

stepman228

05.04.2020

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

4,5(43 оценок)

Открыть все ответы

Ответ:

akjol21

05.04.2020

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

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

4,7(21 оценок)

Ответ:

yana8889

05.04.2020

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 .

4,6(95 оценок)

Это интересно:

Образование-и-коммуникации

15.03.2022

Квантовая физика: с чего начать, чтобы понять ее?...

Дом-и-сад

02.09.2022

Как посадить дерево: советы от опытных садоводов...

Стиль-и-уход-за-собой

13.08.2021

Секреты получения и сохранения красивого загара в домашних условиях...

Компьютеры-и-электроника