Помогите пожалуйста Дан массив из 10 элементов (граница массива от -20 до 20). Обнулить все отрицательные элементы. программа Паскаль

Конечно, чтобы обнулить все отрицательные элементы массива из 10 элементов в программе Паскаль, вам потребуется использовать цикл for для перебора всех элементов и условное выражение if для проверки, является ли текущий элемент отрицательным числом. Вот пример кода на Паскале: ```pascal program ObnulitOttricateli; var arr: array[1..10] of integer; i: integer; begin for i := 1 to 10 do begin // вводите элементы массива write('Введите элемент ', i, ': '); readln(arr[i]); // проверка на отрицательность и обнуление if arr[i] < 0 then arr[i] := 0; end; // вывод массива после обнуления отрицательных элементов writeln('Массив после обнуления отрицательных элементов:'); for i := 1 to 10 do write(arr[i], ' '); end. ``` Этот код просит вас ввести 10 элементов массива, затем проверяет каждый элемент на отрицательность и обнуляет его при необходимости. Наконец, он выводит массив после обнуления всех отрицательных элементов. Надеюсь, это поможет вам в вашем задании!