Паскаль вводится последовательность из n целых чисел. найти наибольшее из всех отрицательных чисел (без массива).

Var   n, i, k, max: integer; begin   readln(n);   for i : = 1 to n do   begin     readln(k);     if ((k < 0) and ((max = 0) or (k > then       max : = k;   end;   writeln(max); end.

Const   m = 4; n = 3; var   a: array[1..m, 1..n] of integer;   i, j, mi, mj, max: integer; begin   randomize;   for i : = 1 to m do       for j : = 1 to n do           a[i, j] : = random(100) - 50;   // случайные числа в интервале [-50..50]   max : = -100;   //меньше минимального из возможных   for i : = 1 to m do       for j : = 1 to n do           if max < abs(a[i, j]) then begin               max : = abs(a[i, j]); mi : = i; mj : = j           end;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do           write(a[i, j]: 4);       writeln   end;   writeln('максимальный по модулю элемент: a(', mi, ',', mj, ')=', max: 3) end. контрольный пример: исходный массив   10  30  30   24 -11  28   -43 -50 -13   -8  21    5 максимальный по модулю элемент: a(3,2)= 50