Дан массив из N целых элементов. Определить, есть ли в массиве положительные элементы.

program zz1;

const n=3; / /задаем количество элементов в массиве

var mas:array[1 ... n] of integer;

i, k:integer;

begin

for i:=1 to n do

mas[i]:=random (21) - 10; / /вводим числа в массив рандомно от - 10 до 10

for i:=1 to n do

write (mas[i],' '); / /выводим числа из массива на экран

writeln; / /переходим на новую строку для вывода

for i:=1 to n do

if mas[i]>0 then k:=1; / /проверяем, если число из массива равно заданному, то считаем это число

if k=1 then write ('в массиве есть положительные элементы') else write ('в массиве нет положительных элементов'); / /выводим ответ

end.