Привет всем ,помогите пожалуйста Дан массив из 13 целых чисел заполненный случайными числами из интервала [-27; 13]. 1. Выведите этот массив в строку и найдите сумму четных, отрицательных элементов массива, которые больше -7. 2. Найдите минимальный элемент в массиве. 3. Выполнить сортировку массива по возрастанию.

uses   crt; const   n = 10; var   a: array[1..n] of integer;   i, sm: integer; begin   clrscr;   for i := 1 to n do   begin     a[i] := random(30) - 15;     sm := sm + a[i];   end;     for i := 1 to n do     write(a[i]:3);   writeln;   if sm > 0 then writeln('Сумма элементов положительна: ', sm) else writeln('Сумма элементов отрицательна: ', sm);   readln; end.