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

1 жауап

+2 дауыс
 
Жақсы жауап
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.
былай жазуға да болады:
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-ға файл атын көрстпейсіз
ulday94@gmail.com
...