Question

Помогите с паскалем плиз)

Answer 1

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.