1. Дан одномерный массив а(n), в кото­ром находится единственный эле­мент ,значение...

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;<br>t:=true;
while t do begin
t:=false;
for i:=1 to l-2 do if a[i]end;
writeln(l);
for i:=1 to n do write(a[i],' ')
end.