const
n = 5;
var
f: text;
r: array[1..n] of real;
begin
assign(f, 'input.txt');
reset(f);
var i: integer := 1;
var min: real := 0;
while not eof(f) do
begin
var a: string := '';
readln(f, a);
var b: real := StrToFloat(a);
if b > 0
then
r[i] := b;
write(r[i], ' ');
inc(i);
if b < min
then min := b;
end;
writeln('мин элемент: ',min);
end.
"Ошибка времени выполнения: Входная строка имела неверный формат." в строке "var b: real := StrToFloat(a);", в файле "1,123 -2,334 4,324 0,123 -5,123455 -3,1432 0,234"
1,123 -2,334 4,324 0,123 -5,123455 -3,1432 0,234
не является дробным числом. Какой-то у вас хитрый паскальvar b: real := StrToFloat(a);