Обработка одномерных массивов

[lolwto]

• Нахождение в массиве минимального элемента среди положительных и его номера в массиве.
• Нахождение произведения элементов больших 1 но меньших 5.
• Нахождение среднего арифметического значения всех элементов массива.
• Расположить массив в порядке убывания.

помогите пожалуйста

[Sciv]

Первые три задания:

if (mas[1]>1) and (mas[1]<5) then pr:=mas[1] else pr:=1;
if mas[1]>0 then num:=1 else num:=0;
sum:=mas[1];
for i:=2 to n do begin
  if (num=0) or ((mas[i]>0) and (mas[i]<mas[num])) then num:=i;
  if (mas[i]>1) and (mas[i]<5) then pr:=pr*mas[i];
  sum:=sum+mas[i];
end;
sum:=sum/n;
WriteLn('минимальный элемент: ',mas[num]:2:2,' его номер: ',num);
WriteLn('Произведение элементов: ',pr:2:2);
WriteLn('Среднее: ',sum:2:2);

Четвертое - любая сортировка, какую найдете, хотя бы тот же пузырек.

UPDATE Немного подправил код, так как на свежую голову обнаружил мелкие ошибки

[isqoff]

4-я

uses Crt;
var
   i,j,buf,n:integer;
   a:array[1..10]of integer;
Begin
    n:=10;
    for i:=1 to n do
      begin
           a[i]:= i;
           write(a[i]:3);
      end;

    for i:= 1 to n div 2 do
    begin
        buf:=a[i];
        a[i]:=a[n-i+1];
        a[n-i+1]:=buf;
    end;
    
    writeln;

     for i:=1 to n do
      begin
           write(a[i]:3);
      end;
End.

[Serge_Bliznykov]

isqoff, что это за кошмарный ужас?! Какое отношение Ваш код имеет к СОРТИРОВКЕ массива?!

[Sciv]

акое отношение Ваш код имеет к СОРТИРОВКЕ массива?!

И вообще интересно - на кой ляд она нужна после такого заполнения?

    for i:=1 to n do
      begin
           a[i]:= i;
           write(a[i]:3);
      end;

[MihalNik]

Похоже это хитрый план обмана преподавателя

[Serge_Bliznykov]

Похоже это хитрый план обмана преподавателя

похоже на хитрый план подставы TC, прийдёт он сдавать работу, а тут такая засада! И всё, свободен!

И вообще интересно - на кой ляд она нужна после такого заполнения?

как раз после подобного упорядоченного заполнения эта перестановка порядка и будет работать. Во всех других случаях инвертирование порядка ничего не даст!

[MihalNik]

При большом таланте даже такое умудряются сдать
А что, ТС может предполагать, что ему не понадобится еще дополнительных телодвижений???

[isqoff]

в задании спрашивается :
расположить массив в порядке убывания, я привёл пример.

что не так? или я не правильно что-то понял?Объясните

подставте вместо a[i]:=i a[i]:= Random(10)+1;

инвертирование происходит код работает

[isqoff]

понял я расположил индексы массива в порядке убывания а не элементы
хотя там толком в задании и не написано
исправляюсь вот код:

   uses Crt;
var
   i,j,buf,n:integer;
   a:array[1..10]of integer;
Begin
    n:=10;
    for i:=1 to n do
      begin
           a[i]:= Random(10)+1;
           write(a[i]:3);
      end;
    for i:=2 to 10 do
      for j:= 1 to 9 do
          if a[i]>a[j]
             then begin
                      buf:= a[i];
                      a[i]:=a[j];
                      a[j]:= buf;
                  end;
                  
    writeln;
                  
    for i:=1 to n do
        write(a[i]:3);

End.