1.Написать программку, которая определяет наибольшее отрицательное целое число в массиве из

1.
var
mas: array[0..10] of Integer ;
i,min,j: Integer;

begin
min:=0;
writeln('Введите числа:');
for i := 1 to 10 do begin

ReadLn(mas[i]);
if (mas[i] lt;0)
then j:=mas[i];
if j then min:=j;
end;
WriteLn('Минимальное отрицательное число:',min);

end.

2.
var
mas: array [0..10] of Integer;
i, max, j: Integer;

begin
writeln('Введите числа:');
for i := 1 to 10 do
begin
ReadLn(mas[i]);
if абс(mas[i - 1]) lt; abs(mas[i]) then
max := mas[i] ;
end;
WriteLn('Наивеличайшее по модулю число:', max);
end.