I. Решить задачу на обработку линейного массива. Найти сумму минимального и первого отрицательного элемента. Если отрицательных элементов нет, сообщить об этом. Паскаль.

program Massiv; var   a: array [1..25] of integer;   i: integer;   min: integer;   otr: integer; begin    {Формирование массива случайными числами в заданном диапазоне}   randomize;   for i:=1 to 25 do    a[i]:=random(201)-100;  min:=a[1];  otr:=1;  for i:=1 to 25 do  begin    if a[i]