Здравствуйте! Помогите перевести с паскаля на СИ не СИ++ просто СИ

Здравствуйте! Помогите перевести с паскаля на СИ не СИ++ просто СИ
1) const N=30;
var a:array[1..N] of integer;
MaxNeg, NumNeg, i: integer;
begin
MaxNeg:=0;
NumNeg:=0;
for i:=1 to N do
if a< =0 then NumNeg:=NumNeg+1
else begin
if NumNeg>=MaxNeg then
MaxNeg:=NumNeg;
NumNeg:=0
end;
if NumNeg>=MaxNeg then
MaxNeg:=NumNeg;
writeln(MaxNeg);
end.

2) Const N=30;
var a:array [1...N] of integer;
i,j,min,min2,s:integer;
begin for i:=1 to N do readln (a);
....
end.

  • А в чем у вас конкретно проблема?
  • 1)
    const N=30;
    int a[N];
    int MaxNeg, NumNeg, i;
    int main(){
    MaxNeg=0;
    NumNeg=0;
    for(i=0;i< =0){
    NumNeg=NumNeg+1;
    }else{
    if(NumNeg>=MaxNeg){
    MaxNeg=NumNeg;
    NumNeg=0;
    }
    }
    if(NumNeg>=MaxNeg){
    MaxNeg=NumNeg;
    WriteLn(MaxNeg);
    }
    }

    2)
    const N=30;
    int a[N]
    int i,j,min,min2,s;
    int main(){
    for(i=0;i