Ввести массив A (n). Если в массиве не менее двух отрицательных…

Question

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

Answer 1

74

eva-eva

10 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: