
Заменить в массиве первый отрицательный элемент нулем


Ответы на вопрос

var A:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do A[i]:=random(5)-10; // заполняем массив случайными отрицательными числами
for i:=1 to high(A) do
if (A[i] < 0) and (k < 1) then begin A[i] := 0; inc(k); end; // если отрицательное и мы ещё ни разу не заменяли, то заменяем на 0 и ставим флаг в К что уже заменили один раз
for i:=1 to 10 do write(A[i]:3); // выводим массив. Если первое число было отрицательным, то оно будет равно 0
end.



Для замены первого отрицательного элемента в массиве на ноль, нужно пройти по каждому элементу массива, найти первый отрицательный элемент и заменить его на ноль.
Вот пример кода на языке Python, который показывает, как это можно сделать:
```python def replace_negative_with_zero(arr): for i in range(len(arr)): if arr[i] < 0: # если элемент отрицательный arr[i] = 0 # заменяем его на ноль break # выходим из цикла после первой замены
# пример использования array = [1, 2, -3, 4, -5] replace_negative_with_zero(array) print(array) # [1, 2, 0, 4, -5] ```
В данном примере создана функция `replace_negative_with_zero`, которая принимает массив `arr`. Затем происходит проход по каждому элементу массива с помощью цикла `for`. Если текущий элемент отрицательный, он заменяется на ноль с помощью оператора присваивания `arr[i] = 0`. После первой замены отрицательного элемента, выполнение цикла прерывается с помощью оператора `break`.
В итоге, в данном примере входной массив `[1, 2, -3, 4, -5]` будет преобразован в `[1, 2, 0, 4, -5]`, где первый отрицательный элемент `-3` был заменен на ноль.


Топ вопросов за вчера в категории Информатика









Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili