Решите, , по информатике в паскале abc! задан массив, с случайных чисел из 15 элементов, найти максимальный элемент среди положительных, минимальный элемент среди нечетных. найти максимальный и минимальный элементы среди нечетных элементов массива. какое из них стоит раньше?

Const    n = 15; var   mas: array[1..15] of integer;   i, max1, max2,  min, c, d: integer; begin   c: =-1;   max1: =-maxint;   min: =maxint;   max2: =-maxint;   randomize;   for i: =1 to n do     mas[i]: =random(101)-50;   write('массив:   ');     for i: =1 to n do     write(mas[i], ' ');   writeln;   for i: =1 to n do   begin     if (mas[i]> 0) and  (mas[i]> max1) then       max1: =mas[i];     if (mas[i] mod 2 < > 0) and (max2< mas[i]) then     begin       c: =i;       max2: =mas[i];       end;       if (mas[i] mod 2 < > 0) and (min> mas[i]) then     begin       d: =i;       min: =mas[i];     end;     end;   writeln('максимальный положительный элемент:   ',max1);   writeln('минимальный нечетный элемент:   ',min);   writeln('максимальный нечетный элемент:   ',max2);   if c< d then       writeln('максимальный элемент стоит раньше')   else     writeln('минимальный  элемент стоит раньше'); end.

смотрите решение на прикреплённом файле