Цитата:
Сообщение от Aleksandr5991
ответьте пожалуйста(
|
Ладно. Сделал, как понял. Не, ну черт возьми, неужели так трудно выполнить элементарную просьбу и написать своими словами, что есть экстремум слева/справа в общем случае? Впрочем, похоже, дитятко все силы кладёт на то, чтобы не перетрудиться. Зачем что-то объяснять - пальчики любимые устанут! Ладно.
Код:
Var
f:Text;
a,Max:Integer;
Function Left(Q:integer):boolean;
var b:boolean;
begin
Reset(f);
b:=false;
Repeat
Read(f,a);
if a=Q then b:=true;
Until b or EoF(f);
Close(f);
Left:=b;
end;
Begin
Assign(f,'text.txt');
Rewrite(f);
write('First number: ');
Readln(a);
if a<>0 then
begin
Max:=a;
write(f,' ',a);
Repeat
write(' Next number: ');
Readln(a);
if a<>0 then write(f,' ',a);
Until a=0;
Close(f);
Reset(f);
Repeat
read(f,a);
if a>Max then Max:=a;
Until EoF(f);
Close(f);
Writeln;
While Left(Max) do Dec(Max);
Writeln('Result: ',Max);
Readln;
end
End.