Составить программу которая будет находить сумму отрицательных чётных элементов одномерного массива. используя процедуры

Var     i,s: integer;   a: array[1..10]of integer; procedure sum(a: integer; var s: integer); begin if (a mod 2=0) and (a< 0) then     s: =s+a end; begin write('массив: '); for i: =1 to 10 do   begin   a[i]: =random(-10,10);   write(a[i],' ');   sum(a[i],s)   end; writeln; writeln('s=',s) end.

1)  #include < stdlib.h> #include < stdio.h> #include < locale> void main(){ setlocale(lc_all, "russian"); int a, b; printf("\n введите первое число > "); scanf_s("%d", & a); printf("\n введите второе число > "); scanf_s("%d", & b); if (a < b)printf("\n второе число больше первого\n %d< %d\n",a,b); if (a > b)printf("\n второе число меньше первого\n %d> %d\n", a, b); system("pause"); } 2) если я верно понял , то #include < stdlib.h> #include < stdio.h> #include < locale> void main(){ setlocale(lc_all, "russian"); int a; printf("\n введите число > "); scanf_s("%d", & a); if (a > 0)printf("\n число %d положительное\n", a); else printf("\n число %d отрицательное\n", a); system("pause"); } 3)  #include < stdlib.h> #include < stdio.h> #include < locale> void main(){ setlocale(lc_all, "russian"); float a, b; int zn; printf("\n введите a > "); scanf_s("%f", & a); printf("\n введите b > "); scanf_s("%f", & b); printf("\n для сложения a и b введите - 1"); printf("\n для вычитания из числа a числа b - 2 "); printf("\n для умножения a на b - 3 "); printf("\n для умножения a на b - 4\n"); scanf_s("%d", & zn); if (zn == 1) printf("\n %5.2f+%5.2f=%5.2f", a, b, a + b); if (zn == 2) printf("\n %5.2f-%5.2f=%5.2f", a, b, a - b); if (zn == 3) printf("\n %5.2f*%5.2f=%5.2f", a, b, a*b); if (zn == 4) printf("\n %5.2f/%5.2f=%5.2f", a, b, a / b); printf("\n"); system("pause"); } 4) #include < stdlib.h> #include < stdio.h> #include < locale> void main(){ setlocale(lc_all, "russian"); int a; printf("\n введите число > "); scanf_s("%d", & a); if ((a> 0) & & (a< =30))printf("\n число приналежит диапозону от 1 до 30\n"); else printf("\n число не принадлежит диапозону от 1 до 30\n"); system("pause"); } 5) #include < stdlib.h> #include < stdio.h> #include < locale> void main(){ setlocale(lc_all, "russian"); int a; printf("\n введите число > "); scanf_s("%d", & a); if (a % 2 == 0)printf("\n число четное\n"); else printf("\n число нечетное\n"); system("pause"); } 6)  #include < stdlib.h> #include < stdio.h> #include < locale> void main(){ setlocale(lc_all, "russian"); int a, i; printf("\n введите число > "); scanf_s("%d", & a); if (a < 10)i = 1; if ((a < 100) & & (a > = 10))i = 2; if ((a < 1000) & & (a > = 100))i = 3; if ((a < 10000) & & (a > = 1000))i = 4; if ((a < 100000) & & (a > = 10000))i = 5; printf("\n в введенном числе %d цифр\n", i); system("pause"); }