помогите, пожалуйста, решить любую задачу на ваш выбор (си)​

1 задача

Var   x: Array[1..5,1..10] of Integer;   i,j,max,t,st: Integer; BEGIN Writeln('Матрица:'); For i:=1 to 5 do begin   For j:=1 to 10 do   begin     x[i,j]:=Random(2);     If x[i,j]=0 Then Inc(t);     Write(x[i,j]:2);   end;   If t>max Then   begin     max:=t;     st:=i;   end;   t:=0;   Writeln end; Writeln('Строка с наиб. кол-вом нулей: ',st); END.