Определить максимальный и минимальный элементы среди положительных нечётных элементов целочисленного массива х. удалить из массива все нулевые элементы. , надо, нет времени писать прогу. 20 !

Type       array100 = array[1..100]of integer; var       x: array100;       i, n, j, t, min, max: integer; procedure show(x: array100; n: integer); var i: integer; begin       writeln();       writeln('вывод массива[',n,']: ');       for i : = 1 to n do               write(x[i], ' ');       writeln(); end; begin       n : = 20;       max : = -200;       min : = 200;             for i : = 1 to n do       begin               x[i] : = random(2*n) - n;       end;       show(x, n);             for i : = 1 to n do       begin               if (x[i] > 0) and (x[i] mod 2 = 1) then begin                       if x[i] > max then max : = x[i];                       if x[i] < min then min : = x[i];               end;       end;       writeln('max = ', max, ' min = ', min);             i : = 1;       while i < = n do       begin               if x[i] = 0 then begin                       for j : = i + 1 to n do                               x[j - 1] : = x[j];                       n : = n - 1;               end               else i : = i + 1;       end;       show(x,n); end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.