Question

Берілген Ғ файлының компоненттері нақты сандар. Компоненттер мәнінің ең үлкенін табыңдар.

Answer 1

var f:text;
x,y:real;
Begin
assign(f,'text.txt');
reset(f );
readln(y,f);
while (not EOF(f )) do
begin
readln(x,f);
if (x>y) then y:=x;
end;
writeln('max = ',y);
End.

Comments

былай жазуға да болады:
assign(input,'text.in'); reset(input);
assign(output,'text.out'); rewrite(output);
read(max);
while not eof(input) do begin
read(n);
if n>max then max:n; end;
write(max);
close(INPUT); close(output);
end.
 әр write-қа файл атын жазып отырмас үшін
және var-ға файл атын көрстпейсіз
[email protected]