Задачи на обработку одномерного массива в Турбо Паскале

[Вячеслав Абакумов]

Сформировать массив R(45) из случайных целых чисел на интервале [-5;25]. Массив распечатать. Найти сумму четных элементов массива, значения которых меньше 10-ти. Распечатать сумму. Найти минимальный элемент массива и его индекс. Распечатать найденные значения. Отсортировать элементы массива по возрастанию их значений. Распечатать массив после сортировки.

[Человек_Борща]

Вам в раздел фриланса.

[Вячеслав Абакумов]

можно по подробней, а то я не понял

[Ципихович Эндрю]

фриланс - это раздел где делают за деньги\вознаграждение
а то с Вашим тоном - ни здрасьте ни пожалуйста

[Вячеслав Абакумов]

я извиняюсь конечно, просто только зарегестрировался и не знаю, что где как( не могли бы вы мне помочь в решении данной задачи, пожалуйста

[MooNDeaR]

Да пожалуйста. 150 рублей)

[domovou]

Если актуально то:

const
     n=45;
type
    mas=array [1..n] of integer;
var
   i,j:byte;
   a:mas;
   sum,min,imin,x:integer;
BEGIN
randomize;
for i:=1 to n do
    begin
    a[i]:=random(31)-5;
    write(a[i]:3);
    if (a[i] mod 2 = 0) and (a[i]<10) then
       sum:=sum+a[i];
    if a[i]<min then
       begin
       min:=a[i];
       imin:=i;
       end;
    end;
writeln(#13,'Sum= ',sum,#13,'Min= ',min,' I= ',imin);
for i:=n downto 1 do
        for j:=1 to i-1 do
            if a[j]>=a[j+1] then
            begin
                x:=a[j];
                a[j]:=a[j+1];
                a[j+1]:=x;
            end;

for i:=1 to n do
    write(a[i]:3);
readln;
END.