Переведите целые десятичные числа в двоичную систему счисления 132^10 2 253^10 2
135
218
Ответы на вопрос:
Program primer1; var a: array[1..100] of integer; n, i, max, min: integer; begin randomize; write('введите число элементов от 1 до 100: '); readln(n); max : = -32768; min : = 32767; writeln('исходный ряд чисел'); for i : = 1 to n do begin a[i] : = random(101) - 50; write(a[i], ' '); if max < a[i] then max : = a[i] else if min > a[i] then min : = a[i]; end; writeln(#13#10, 'максимум: ', max, ', минимум: ', min); end. тестовое решение: введите число элементов от 1 до 100: 24 исходный ряд чисел 40 -14 -12 13 44 -48 -19 11 -50 -2 -49 -6 45 49 -44 4 -7 -50 -31 18 37 44 30 -2 максимум: 49, минимум: -50
Популярно: Информатика
-
Никита0Скорая0Помощь21.10.2020 17:28
-
Ismashoma18.01.2023 15:09
-
SuperArtem5216.03.2021 19:04
-
lap8592823.01.2021 11:28
-
Vitalikprofi21.01.2022 08:07
-
mam4025.04.2023 05:51
-
saskam31019.01.2020 17:18
-
xmaxim9920.02.2021 06:49
-
mgurbo29.09.2020 17:00
-
Аліномаг16.07.2021 10:52