Moril
4 год назад
Посчитать наибольшее значение в непустом файлецелых чисел (file of integer).Дописать найденное значение в конец файла.Процедура принимает в качестве параметра имя файла NamePROCEDURE ADD(NAME:STRING);
ОТВЕТЫ
Reino Tapio
Oct 24, 2020
procedure ADD(name:string; var max:integer);
begin
var f:file of integer;
Reset(f,name);
max:=-MaxInt;
var t:integer;
while not f.Eof do begin
Read(f,t);
if t>max then max:=t
end;
f.Close
end;
begin
var p:=ReadlnString('Имя файла (с путем при желании):');
var max:integer;
ADD(p,max);
Writeln(max)
end.
723
Смежные вопросы: