15. при работе с таблицей адресом ячейки называют? а. её букву и номерб. её номер и буквув. уникальный номерг. город, улицу и дом16. результатом выполнения формулы «срзнач(a1: c3)» будет ответ: (срзнач — возвращает среднее число, сумма выбранных чисел поделённоена их количество)5ab2 а1+b17 c2-a1с1-а2сумм(в1: 02)срзнач(a1: c3)3б. 10в. 5г. 017. интернет это? a. всемирная свалкаб. сеть из компьютеровв. общая мировая сетьг. веб страница18. браузер это? а. программа для открытия аудио, видеоб. программа для создания веб страницв. программа для скачивания файловг. программа для просмотра веб страниц19. электронная почта это? а. специальная веб страница где можно отправлять и получатьэлектронные письма​

Write(number mod 10,number div 10 mod 10, number div 100 mod 10); пример программы: program test; uses crt, classes; var number: integer; beginnumber: =123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); delay(1000); //чтобы окно ещё на 1 секунду осталось, функция из модуля crtend.для pascal abc.net: program test; var number: integer; beginnumber: =123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); sleep(1000); //чтобы окно ещё на 1 секунду осталосьend.вывод: 321

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 .