Цитата:
Сообщение от hamchuk250894
да, именно так
|
Получите:
Код:
Var
S,S1:String;
A:Array [1..255] of Word;
i,j,N:Byte;
Code:Integer;
Max,SubMax:Word;
b:boolean;
Begin
Writeln('Enter the string:');
Readln(S);
N:=0;
i:=0;
Repeat
repeat
Inc(i);
until ((Ord(S[i])>47) and (Ord(S[i])<58)) or (i>=Length(S));
If i<Length(S) then
begin
Inc(N);
S1:='';
S1:=S1+S[i];
repeat
Inc(i);
if (Ord(S[i])>47) and (Ord(S[i])<58) then S1:=S1+S[i];
until (Ord(S[i])<48) or (Ord(S[i])>57) or (i>=Length(S));
Val(S1,A[N],Code);
end;
Until i>=Length(S);
Max:=A[1];
For i:=2 to N do
If A[i]>Max then Max:=A[i];
Repeat
b:=true;
Dec(Max);
for j:=1 to N do
if Max=A[j] then b:=false;
Until b;
Writeln('Result: ',Max);
Readln;
End.