Выведите на экран turbo pascal используя операторы while и repeat: 1)все двухзначные числа, в которых старшая цифра отличается от младшей не больше чем на 1; 2)все трехзначные числа, в которых хотя бы две цифры повторяются

Const   n = 15; var   x: array[1..n] of integer;   i, max: integer; begin   randomize;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(20);       write(x[i]: 3)   end;   max : = x[2]; i : = 4;   while i < = n do   begin       if max < x[i] then max : = x[i];       i : = i + 2   end;   writeln;   writeln('max=', max) end. тестовое решение: элементы массива:   17 12 18 12 11 14 18 19 16 16  9 13  7  3 13 max=19

Все зависит от того, о каком языке идет речь. если язык допускает только типизированные массивы, то тип элементов массива может быть любым, как базовым, так и определенным пользователем, но все элементы массива должны быть одного типа. если в языке допускаются нетипизированные массивы, то любые элементы массива могут иметь любой, предопределенный в языке тип, либо ранее объявленный тип, либо быть бестиповыми. другими словами, если в языке допускаются нетипизированные массивы, то тип каждого элемента может определяться, а также переопределяться в процессе выполнения программы. например, паскаль - язык с жесткой типизацией. в нем тип массива определяет тип всех элементов этого массива. сам тип может быть как предопределенным (числовым, логическим, булевым, так и определенным пользователем посредством конструкции type. индекс массива - это порядковый номер элемента в массиве, поэтому он всегда целочисленный. в ряде языков можно указывать индексы вещественного и даже строкового типа, но в любом случае они будут к целочисленным.