2.73

//Задание 2.73 Кучеренко

Begin
  var r: array[0..100] of real;

  var n: integer;
  write('Vvedite N: ');
  readln(n);

  var i: integer;
  var max: real;
  max := -2147483648;

  for i := 0 to n - 1 do
  begin
    write('R[', i + 1, '] = ');
    readln(r[i]);

    if r[i] < 0 then
      if abs(r[i]) > max then
        max := abs(r[i]);
  end;

  if not (max = -2147483648) then
    write('Naibolshij element po absolutnoj velichine = -', max)
  else
    write('Net otricatelnih elementov.')
end.