Program filework;
var f:text;
i, n, count:integer;
l:string;
arr:array of real;
answ:real;
begin
assign(f, 'C:\Users\HO4HOU_TTaPKuPucT\Desktop\test_file.txt'); // В кавычках путь к файлу
reset(f);
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then
Inc(count);
end;
SetLength(arr, count);
reset(f);
i:=0;
while not eof(f) do begin
readln(f, l);
if StrToFloat(l) > 0 then begin
arr[i]:=StrToFloat(l);
Inc(i);
end;
end;
answ:=arr[0];
for i:=1 to arr.Length - 1 do
if arr[i] < answ then answ:=arr[i];
writeln(answ);
close(f);
end.
P.S. Программа работает с неограниченным числом положительных чисел в файле
Точно, конечно, ответить сложно. Но что-то мне подсказывает, что всё же олень. Олень.
4. <span>10 1101 0011(2)=1*2^9+0*2^8+1*2^7+1*2^6+0*2^5+1*2^4+0*2^3+0*2^2+1*2^1+1*2^0=
512+128+64+16+2+1=723
</span><span>1323(8)= 1*8^3+3*8^2+2*8^1+3*8^0=512+192+16+3=723
</span><span>2D3(16)= 2*16^2+16*16^1+3*16^0=512+208+3=723
</span>
5.+<span>10 0011 1110(2)
</span><span> 1011 1111(2)=
</span> 111111 1111