//2.75

Begin
  var t: array[1..20] of real;
  var n, i: integer;
  var max: real;
  
  max := 0;
  
  write('Vvedite kol-vo elementov massiva: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Vvedite T(',i,'): ');
    readln(t[i]);
    if (t[i] > max)AND(t[i] > 0) then
      max := t[i];
  end;
  
  if max = 0 then
    writeln('Net polozhitelnih elementov!')
  else
    writeln('Naibolshij polozhitelnij element - ', max);
End.