Program primar;
Uses crt;

var i,n: integer;
    max: real;
    a:array[1..1000] of integer;

Begin clrscr;
      max:=0;
      write('Введите размер массива n = ');
      readln(n);
      writeln;

      for i:=1 to n do
      begin
       write('a[', i , '] = ');
       readln(a[i]);
      end;

       for i:=1 to n do
       begin
       if (a[i] > max) and (a[i] > 0) then
       max:=a[i];
       end;

writeln;
write('Максимальное значение среди положительных элементов max = ', max);
End.