Тема:Одномерные массивы
Дан список 10 магазинов и соответствующий ему список цен на учебники.
Отсортировать список магазинов по возрастанию цен.
Вывести на экран отсортированный список.
Подсчитать и вывести на экран количество магазинов с самыми дешевыми учебниками.
Вывести на экран названия магазинов, где учебники дешевле всего.
BEGIN
readln(a,b,c,d,e);
if {1} a>b then begin x:=a; a:=b; b:=x; end;
if {2} c>d then begin x:=c; c:=d; d:=x; end;
if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end;
if {4} c>e then
if {5} b>c then
if {6} b>d then
if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end
else begin x:=e; e:=b; b:=x; end
else
if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end
else begin x:=e; e:=d; d:=b; b:=x; end
else
if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x; end
else
if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x; end
else begin x:=e; e:=d; d:=c; c:=x; end
else
if {5} d>e then
if {6} b>e then
if {7} b>d then begin x:=e; e:=b; b:=c; c:=x; end
else begin x:=e; e:=d; d:=b; b:=c; c:=x; end
else
if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x; end
else begin x:=e; e:=d; d:=x; end
else
if {6} b>d then
if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x; end
else begin x:=b; b:=c; c:=d; d:=x; end
else
if {7} b>c then begin x:=b; b:=c; c:=x; end;
writeln;
writeln(a,' ',b,' ',c,' ',d,' ',e);
END.
program raf105;
var
a,i,j,s: integer;
f,st: string;
inA,inB: boolean;
begin
readln(a);
readln(f);
i:=1;
while i < length(f)-1 do
begin
st:= f[i] + f[i+1];
inA:= False;
inB:= False;
for j:=1 to length(st)-1 do
begin
if st[j] = 'a' then inA:= True;
if st[j] = 'b' then inB:= True;
end;
if (not inA) or (not inB) then
if st = 'bb' then
f[i+1]:= 'a'
else
f[i+1]:= 'b';
s:= s+1;
i+= 2;
end;
writeln(s);
for i:=1 to length(f)-1 do
write(f[i],' ');
end.
PascalABC