В той же папке, где будет программа, создаете два блокнота, называете input и output a:array[1..10000] of integer; i, k, min, imin:integer; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); { если в тот же, то assign(input,'input.txt'); rewrite(output); rewrite(input);} for i:=1 to 10 do read(a[i]); min:=a[1]; for i:=1 to 10 do if min>a[i] then begin min:=a[i]; imin:=i; end; writeln; writeln(min,' ', imin); end. задание вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.
Требуется перевести дробное десятичное число 206,116 в дробное двоичное число. Перевод целой части дает 206=11001110(для этого мы делим 206 на два и записываем остатки от деления) , затем дробную часть умножаем на основание 2, до тех пор, пока дробная часть не будет равна нулю, занося целые части произведения в разряды после запятой искомого дробного двоичного числа: .116 • 2 = 0.232 .232 • 2 = 0.464 .464 • 2 = 0.928 .928 • 2 = 1.856 .856 • 2 = 1.712 .712 • 2 = 1.424 .424 • 2 = 0.848 .848 • 2 = 1.696 .696 • 2 = 1.392 .784 • 2 = 0.784 Получим: 206=11001110,0001110110
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(10);
a.Reverse.Println
end.
Пример
23 132 52 0 41 7 3732 18 49 13
13 49 18 3732 7 41 0 52 132 23