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.