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. Программа работает с неограниченным числом положительных чисел в файле
3 вариант, все остальное рассуждение.
Сначала массив будет
состоять из чисел от 0 до 9 в обратном направлении: 9, 8, 7, 6, 5, 4, 3, 2, 1,
0
<span>Потом, из числе от 0 до 9 в прямом направлении: 0, 1,
2, 3, 4, 5, 6, 7, 8, 9</span>
Получается, мы должны найти кол-во чисел в диапазоне от минимального числа из одиннадцати цифр - это единица и десять нулей, до максимального из тридцати цифр - это число состоящее из тридцати девяток. Данное кол-во чисел равно разности наибольшего и наименьшего. Наименьшее число состоит из единицы и нулей, как мы поняли раньше, а значит только одна из цифр числа с тридцатью девятками изменится и станет восьмеркой. Следовательно, в таком числе будет двадцать девять девяток и одна восьмерка, значит ответом будет: Двадцать девять.