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

Конечно, чтобы обнулить все отрицательные элементы массива из 10 элементов в программе Паскаль, вам потребуется использовать цикл for для перебора всех элементов и условное выражение if для проверки, является ли текущий элемент отрицательным числом. Вот пример кода на Паскале:

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 элементов массива, затем проверяет каждый элемент на отрицательность и обнуляет его при необходимости. Наконец, он выводит массив после обнуления всех отрицательных элементов. Надеюсь, это поможет вам в вашем задании!