Question

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

Answer 1

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