Перевести программу с Pascal - C (СИ) (150307)

Формулировка задачи:

program pas;
 
var
  a: array[1..5] of integer;
  i, min: integer;
 
begin
  for i := 1 to 5 do 
  begin
    write('Vvedite a[', i, '] = ');
    readln(a[i]);
    min := a[1];
  end;
  for i := 1 to 5 do if a[i] < min then min := i;
  for i := 1 to 5 do 
  begin
    if (a[i] mod 2 = 0) then if i < min then a[i] := 0;
  end;
  for i := 1 to 5 do write(a[i]);
end.

Решение задачи: «Перевести программу с Pascal»

Листинг программы

#include <stdio.h>
 
   int main(void) {   
int i,min,a[5];
    for(i=0;i<5;i++){
        printf("Vvedite a[%d] = ",i);
        scanf("%d",&a[i]);
        min=a[0];
                           }
    for(i=0;i<5;i++)if(a[i]<min)min=i;
         for(i=0;i<5;i++){if(a[i]%2==0)if(i<min)a[i]=0;}
    for(i=0;i<5;i++)printf("%d\n",a[i]);
 return(0);
}

Объяснение кода листинга программы

Ввод данных о 5 элементах массива a с помощью scanf
Инициализация переменной min значением первого элемента массива a
Поиск минимального элемента массива a с помощью цикла for и условного оператора if
Если найденное значение минимального элемента меньше значения переменной min, то обновление значения переменной min
Условие if для проверки четности каждого элемента массива a
Если текущий элемент массива a четный и его индекс меньше значения переменной min, то обновление значения этого элемента на 0
Вывод значений массива a с помощью цикла for и функции printf