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

1

Ответы и объяснения

Лучший Ответ!
  • Segrif
  • почетный грамотей
2013-12-19T17:14:42+00:00
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.