Сформируйте одномерный массив из 5 частей (значения элементов укажт юзер с

var
   i : integer;                          // объявляем переменную целочисленного типа.
   arr : array [1..5] of integer; // объявляем массив.
Begin
  writeln (Введите элементы массива:);    // вывод строки на экран.
  read (arr[1], arr[2], arr[3], arr[4], arr[5]); // считываем значения частей массива.
  for i := 1 to 5 do       // начало цикла.
    begin
       if (i mod 2) gt; 0 then arr[i] := 0; // если текущий индекс нечетный, то обнуляем элемент.
       write(arr[i] + );          // вывод на экран через пробел значения частей массива.
    end;
End.