Подскажите пожалуйста,что не так или как лучше заменить.Буду очень признателен

@АРКТУР · Регистрация: 23.03.2020

Author24 — интернет-сервис помощи студентам

Допустим в файл мы вводим числа 1.8 -2 -5 5.5 9.9, выводит 5.5,а если поставить пробел после 9.9,то спокойно выводит чему равен max

Pascal

program ddhfjdfbjdbf;
var t:text;
    i,p,code:integer;
    s:string;
    m:array[1..100] of real;
    max:real;
 
begin
assign(t,'chisla.txt'); 
reset(t);
read(t,s);
i:=0;
repeat
p:=pos(' ',s);//на каком месте стоит пробел
inc(i);
val(copy(s,1,p-1),m[i],code);//перевод строки в число
delete(s,1,p);
until p=0;
max:=m[1];
for p:=2 to i do
if m[p]>max then max:=m[p];
writeln('Максимальное число в файле= ',max);
close(t);
readln;
end.

@ZX Spectrum-128 · 18.05.2020, 14:42

Условие задачи опубликуйте. Может быть, все намного проще.

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	18.05.2020, 14:42	2
	Условие задачи опубликуйте. Может быть, все намного проще. 0