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

Program Zadacha;

Const n = 10;

Var a: Array [1 ... n] of Integer;

i, b: Integer;

Begin

WriteLn ('Введите через пробел ', n, ' чисел') ;

For i : = 1 To n Do

Read (a[i]) ;

b : = 0; For i : = 1 To n Do

If a[i] < 0 Then

b : = b + 1;

If b > = 2 Then

Begin

For i : = 1 To n Do

If a[i] < 0 Then

a[i] : = a[i] - 2;

For i : = 1 To n Do

Write (a[i], ' ') ;

End

Else

Begin

b : = 1;

For i : = 1 To n Do

If a[i] < a[b] Then

b : = i; WriteLn ('Номер первого минимального элемента массива - ', b) ;

End;

ReadLn;

End.