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

program zz1;

const n=10; / /задаем размер массива

var mas:array[1 ... n] of integer;

i, j, s, k:integer;

begin

for i:=1 to n do / /вводим массив с клавиатуры

read (mas[i]);

for i:=1 to n do

if (mas[i]>2) and (mas[i]<5) then begin k:=i; break; end; / /проверяем числа, если находим нужное число, то запоминаем его и прерываем цикл

for i : = 1 to k-1 do / /сортируем массив "пузырьком"

for j : = 1 to k-i do

if mas[j] < mas[j+1] then begin

s : = mas[j];

mas[j] : = mas[j+1];

mas[j+1] : = s;

end;

writeln ('номер найденного элемента = ', k); / /выводим ответ

for i:=1 to n do

write (mas[i],' ');

end.