Question

1.        
Дан
одномерный массив а(n), в кото­ром находится единственный эле­мент ,значение
которого принадлежит интервалу от 2 до 5. Найти где он нахо­дится , и
упорядочить по убыванию эле­менты, расположенные перед ним. Вы­дать на экран
номер элемента и упорядо­ченный массив.

Answer 1

const n=5;
var a:array[1..n] of integer; i,l:integer; t:boolean;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n do if (a[i]>=2) and (a[i]<=5) then begin l:=i; break end;
t:=true;
while t do begin
t:=false;
for i:=1 to l-2 do if a[i]<a[i+1] then begin t:=true; a[i]:=a[i]+a[i+1]; a[i+1]:=a[i]-a[i+1]; a[i]:=a[i]-a[i+1] end
end;
writeln(l);
for i:=1 to n do write(a[i],' ')
end.