Переведите число 11001100110011 из двоичной системы в десятичную шестью

263

381

Посмотреть ответы 1

Ответы на вопрос:

asli121

Информатика

4,7(77 оценок)

program krab52; uses crt; const n=10; var a: array [1..n] of integer; i,max,min: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); randomize; {заполняем массив} for i: =1 to n do begin a[i]: =random(101); write (a[i]: 4); end; writeln(); {ищем макс и мин} max: =a[1]; min: =a[1]; for i: =2 to n do begin if a[i]< min then min: =a[i]; if a[i]> max then max: =a[i]; end; {выводим результат} writeln(); writeln(' максимальный элемент ',max); writeln(' минимальный элемент ',min); writeln(' размах между максимальным и минимальным элементами ',max-min); end.