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

Program primer;

const n=100;

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

i, max:integer;

begin

writeln ('vvedite massiv') ;

for i:=1 to n do

readln (' ', a[i]) ;

max:=a[1];

for i : = 1 to n do

if (a[i]>a[1]) and (a[i]>0) then max:=a[i];

writeln ('max=', max) ;

readln;

end.