Заменить все отрицательные нечетные по значению элементы массива единицами, вывести полученный массив (написать программу на языке си)

List= for i in range(len(list)):     if list[i]%2! =0 and list[i]< 0:           list[i]=1 print(list) вот алгоритм, на си сам ах, да, сори за мой питончик

Var a: array[1..2,1..4] of real;     b,c: string;       d,x,y: real;     i,j: integer; begin     b: ='abcd';   c: ='xy';     writeln('трапеция abcd');     for i: =1 to 4 do     begin       writeln('координаты точки ',b[i],': ');       for j: =1 to 2 do       begin         write('   ',c[j],i,' = ');         readln(a[j,i]);       end;       end;       x: =(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2;     y: =(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2;     d: =sqrt(x*x+y*y);     writeln('длина средней линии:   ',d: 5: 2); end.ввод - выводтрапеция abcd координаты точки a:       x1 = 3     y1 = 2 координаты точки b:       x2 = 5     y2 = 5 координаты точки c:       x3 = 9     y3 = 5 координаты точки d:       x4 = 10     y4 = 2 длина средней линии:   5.50

Def zadanie(n)       found = false       for i in 0..n             t = i             s = 0             while t > 0 do                   s += t % 10                   t = t / 10             end             if i+s == n                   p i                   found = true             end       end       puts "не найденно" if not found       return found end # примеры применения zadanie(9) zadanie(15) zadanie(100)