Массив

[viper92]

Ввести A(n) если в массиве не менее двух отрицательных элементов, то уменьшить отрицательные элементы на 2, иначе-найти номер первого минимального элемента.
помогите плиз, срочно надо.
паскаль не знаю совсем((

[Arigato]

Сообщение от viper92

паскаль не знаю совсем((

А какой тогда смысл учиться? Может проще сразу работать пойти?

[viper92]

я его не изучаю, это не по учебе. но нужно срочно, помогите плиз, я же не часто обращаюсь.

[Arigato]

Если хотите готовое решение, то есть раздел Фриланс.

[viper92]

спасибо, что просвятили

[TinMan]

Сообщение от viper92

спасибо, что просвятили

Типо ты теперь святой? ))
Извини, но всему должна быть своя причина. Нам интересно помогать тем, кто хочет научиться - это причина. В данном случае ее нет.. Остается другая причина - оплата за труд.

[hiho]

for i := 1 to N do if A[i] < 0 then inc(count);
if (count >= 2) then for i := 1 to N do if A[i] < 0 do A[i] := A[i] - 2
else begin
   min := i;
   for i := 2 to N do if A[i] < A[min] then min := i;
end;

Не оптимально!

[TinMan]

Тут:
min := i;
- полагаю, ты имел в виду
min := 1;

[hiho]

безусловно

[viper92]

спасибо всем откликнувшимся, программа написа