Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.