I. Решить задачу на обработку линейного массива.
Найти сумму минимального и первого отрицательного элемента. Если отрицательных элементов нет, сообщить об этом.
Паскаль.
Найти сумму минимального и первого отрицательного элемента. Если отрицательных элементов нет, сообщить об этом.
Паскаль.
More Questions From This User See All
Answers & Comments
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.