Задание:
Ввести массив A (n). Если в массиве не менее двух отрицательных элементов, то уменьшить отрицательные элементы массива на 2, иначе найти номер первогоминимального элемента массива.
Решение:
Program Zadacha; Const n=10; Var a: Array [1… n] of Integer; i, b: Integer; BeginWriteLn ('Введите через пробел ', n, ' чисел'); For i: =1 To n DoRead (a[i]); b: =0; For i: =1 To n DoIf a[i] < 0 Thenb: =b+1; If b >=2 ThenBeginFor i: =1 To n DoIf a[i] < 0 Thena[i]: =a[i] — 2; For i: =1 To n DoWrite (a[i], '); EndElseBeginb: =1; For i: =1 To n DoIf a[i] < a[b] Thenb: =i; WriteLn ('Номер первого минимального элемента массива — ', b); End; ReadLn; End.
Знаете другой ответ?