Дано: массив целых чисел A[N]. Проверьте, есть ли в нем отрицательные элементы. Если…

Program gt; var a: array[1… 1000]of integer; i,n,l: integer; beginread (n); l: =0; for i: =1 to n dobeginread (a[i]); if (a[i]<0) then l: =i; end; if (l=0) then writeln ('НЕТ ОТРИЦА… В массиве') else writeln (l); end.