Var x: array [1..20] of integer;
sum: integer;
i, min: byte;
begin randomize;
min := 1;
for i := 1 to 20 do begin
x[i] := random(100);
if random(2) <> 1 then x[i] := x[i] * -1;
write(x[i], ' ');
if (x[i] < x[min]) then min := i;
end;
for i := 1 to 20 do begin
if i > min then begin
if x[i] < 0 then sum += x[i];
end;
end;
if sum <> 0 then begin
writeln(); writeln('Сумма: ', sum);
end
else begin
writeln(); writeln('Нет отрицательных чисел после минимального')
end;
writeln('Минимальное число:', x[min]);
end.