Var a: array[1..18] of integer; i: integer; begin randomize(); write('исходный массив: '); for i: = 1 to 18 do begin a[i]: =-40 + random(121); write(a[i], ' '); end; writeln(); write('элементы, состоящие из одинаковых цифр: '); for i: = 1 to 18 do if (a[i] mod 10 = a[i] div 10 ) then write(a[i], ' '); end. пример: исходный массив: 40 68 13 -38 -9 29 77 78 27 14 74 42 50 79 -22 -15 22 20 элементы, состоящие из одинаковых цифр: 77 -22 22
koldunovan
02.12.2021
Program school; var a: array[1..5, 1..6] of integer; i, j: integer; fl: boolean; begin fl: = false; for i: = 1 to 5 do for j: = 1 to 6 do begin read(a[i,j]); if a[i,j] = 0 then fl : = true; end; if fl = true then writeln('в матрице есть нулевые элементы') else writeln('в матрице нет нулевых элементов'); end. пример: 1 2 3 4 5 60 1 2 3 4 59 4 5 7 8 35 8 6 9 9 91 2 5 4 2 0в матрице есть нулевые элементы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Как представлено число 607*10 в шестнадцатеричной системе счисления 1)2515 2)25e 3)25f 4)26f