I. Решить задачу на обработку линейного массива.

Найти сумму минимального и первого отрицательного элемента. Если отрицательных элементов нет, сообщить об этом.

Паскаль.

Question

Информатика

Виталина

7 января, 10:30

I. Решить задачу на обработку линейного массива.

Найти сумму минимального и первого отрицательного элемента. Если отрицательных элементов нет, сообщить об этом.

Паскаль.

+5

Ответы (1)

Знаете ответ на вопрос?

Станя · 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]
if (a[i]<0) and (otr=1) then otr:=a[i];

end;

if otr=1 then

writeln ('Отрицательных элементов не найдено')

else

writeln (otr+min)

end.