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

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]gt;2) and (mas[i]lt;5) then begin k:=i;break;end; //проверяем числа, если обретаем необходимое число, то запоминаем его и прерываем цикл

for i := 1 to k-1 do //сортируем массив "пузырьком"
for j := 1 to k-i do
if mas[j] lt; 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.