Из восьмеричной в шестнадцатеричную. переведите 612 733 982 156.

612=18а 733= 1db982=2156=6е

Var n, i, n1: integer; begin       read(n);       i : = 0;       n1 : = 0;       while n < > 0 do       begin           if n1 * n < 0 then               i : = i + 1;           n1 : = n;           read(n);       end;       writeln(i); end.

Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа var a: array[1..10] of тип i,n: integer; max, min, sum: тип begin write('введите количество элементов массива'); readln(n); for i: =1 to n do read(a[i]); max: =a[1]; min: =a[1]; for i: =2 to n do if a[i]> max then max: =a[i]; for i: =2 to n do if a[i]> min then min: =a[i]; sum: =0; for i: =1 to n do if (a[i]> min) and (a[i]< max) then sum: = sum+a[i]; write('сумма элементов массива расположенных между максимальным и минимальным =  ', sum); end.