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]   if (a[i] end;
 if otr=1 then
   writeln(Отрицательных элементов не найдено)
 else
   writeln(otr+min)
end.