What's wrong?
Program Blue;var a : string;l,p : shortint;x : char;beginreadln(a); l:=length(a); x:=s[1];p:=1; for l:=2 to l do if x
Program Blue;
var a : string;
l,p : shortint;
x : char;
begin
readln(a);
l:=length(a);
x:=s[1];p:=1; for l:=2 to l do if x
end;
writeln('Maxim element is',x,' and position is',p);
end.
What's wrong here?
or:Program Blue;var a : string;l,p : shortint;x : char;beginreadln(a); l:=length(a); x:=s[1];p:=1; for l:=2 to l do if xor:I don't know what language this is but I can see a few problems. One is that s doesn't seem to be declared anywhere.
Program Blue;
var a : string;
l,p : shortint;
x : char;
begin
readln(a);
l:=length(a);
x:=s[1];p:=1; for l:=2 to l do if x
end;
writeln('Maxim element is',x,' and position is',p);
end.
What's wrong here?
or:Program Blue;var a : string;l,p : shortint;x : char;beginreadln(a); l:=length(a); x:=s[1];p:=1; for l:=2 to l do if x or:I don't know what language this is but I can see a few problems. One is that s doesn't seem to be declared anywhere.
