Дано целое число n и набор из n целых чисел. найти минимальное положительное число из данного набора. если положительные числа в наборе отсутсвуют, то вывести 0. с выводом минимального положительного числа у меня вроде бы получилось, а вот с проверкой на отрицательность не вышло

Кинь сюда свой код, я проверю его. а вообще проверка на отрицаемость чисел проверяеться через условие 'если массив меньше нуля, то'

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var s: =a.indexesof(x-> x mod 10=0);   if s.count=0 then writeln('нет элементов, оканчивающихся на 0')   else begin       write('номера элементов, оканчивающихся на 0: ');       s.select(i-> i+1).println       end end. примеры n= 12 -41 46 29 -13 -43 -21 48 43 41 -48 -19 -44 нет элементов, оканчивающихся на 0 n= 16 37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26 номера элементов, оканчивающихся на 0: 11 13

Первое: program r;       var a: array[0..8] of integer=(-6,7,45,-12,2,7,-15,0,64); l,i,sum: integer;       begin;       for i: =0 to 8 do               if a[i]> 0 then begin;                       sum: =sum+a[i];                       l: =l+1;               end;       for i: =0 to 8 do               writeln('a[',i,'] = ', a[i]);       write('сумма положительных элементов равна ',sum,', а из количество ',l); end. второе: program t;       var d: array [0..40] of integer; l,x: integer;       begin;       for x: =0 to 40 do begin;               d[x]: =45*x+15;               if d[x] mod 2 = 1 then l: =l+1;       end;       write('кол-во нечётных элементов ',l); end. третье: program y;       var p: array [0..25] of real; k: integer; avg: real; begin;       for k: =0 to 25 do begin;               p[k]: =7*k+3*k/15;               avg: =avg+p[k];       end;       avg: =avg/26;       write('среднее значение элементов массива ', avg); end.