2.75

//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.