Скачиваний:
288
Добавлен:
04.03.2014
Размер:
344 б
Скачать
program ex5;
var s:string[8];
i,j,a,b:integer;
x:char;
begin
writeln('‚ўҐ¤ЁвҐ бва®Єг');
readln(s);
a:=1;
x:=s[1];
for i:=1 to length(s) do
begin
if s[i]>x then begin a:=i; x:=s[i] end;
end;
x:=s[1];
b:=1;
for j:=1 to length(s) do
begin
if s[j]<x then begin b:=j;x:=s[j];end;
end;
writeln('ђҐ§г«мв в ',b,' ',a);
readln;
end.
Соседние файлы в папке Alex