uses crt; const max=100; var a: array[1..max] of integer; n,i,imn,imx: byte; x: integer; begin clrscr; randomize; repeat write('размер массива n: '); readln(n); until n in [1..max]; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(20)+1; write(a[i],' '); end; imn: =1; imx: =1; for i: =1 to n do begin if a[i]< a[imn] then imn: =i; if a[i]> a[imx] then imx: =i; end; writeln('минимальный элемент: ',a[imn],' его индекс: ',imn); writeln('максимальный элемент: ',a[imx],' его индекс: ',imx); x: =a[imn]; a[imn]: =a[imx]; a[imx]: =x; writeln('обмне максимального и минимального: '); for i: =1 to n do write(a[i],' '); end.
Anait_Natalya451
03.04.2022
Вдесятичной системе счисления всё идёт так: сначала цифры от 1 до 10 - 1 = 9, потом появляется 1 в разряде десятков, а единицы пробегают от 0 до 9, потом в десятках 2, 3, 9, единицы от 0 до 9, после этого появляется новый разряд (сотни), в котором тоже сначала 1, и т.д. в остальных системах счисления всё так же, только переход через разряд будет не после появления девятки (там, где цифр не хватает, начинают идти буквы: a = 10, b = 11 и т.д.): 2-ная: 1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1010, 1011, 1100, 1101, 1110, 1111, 10000, 10001, 10010, 10011, 10100 5-ная: 1, 2, 3, 4, 10, 11, 12, 13, 14, 20, 21, 22, 23, 24, 30, 31, 32, 33, 34, 40 8-ная: 1, 2, 3, 4, 5, 6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 20, 21, 22, 23, 24 16-ная: 1, 2, 3, 4, 5, 6, 7, 8, 9, a, b, c, d, e, f, 10, 11, 12, 13, 14
uses crt; const max=100; var a: array[1..max] of integer; n,i,imn,imx: byte; x: integer; begin clrscr; randomize; repeat write('размер массива n: '); readln(n); until n in [1..max]; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(20)+1; write(a[i],' '); end; imn: =1; imx: =1; for i: =1 to n do begin if a[i]< a[imn] then imn: =i; if a[i]> a[imx] then imx: =i; end; writeln('минимальный элемент: ',a[imn],' его индекс: ',imn); writeln('максимальный элемент: ',a[imx],' его индекс: ',imx); x: =a[imn]; a[imn]: =a[imx]; a[imx]: =x; writeln('обмне максимального и минимального: '); for i: =1 to n do write(a[i],' '); end.