Вопрос Помогите пожалуйста перевести код программы из Pascal в C-и.

[finiss]

var a: array [1..10000] of integer;
n, i, k: integer;
begin
readln;
read(a[1]);
k := 0;
for i := 2 to n do
begin
read(a);
if a > a[i - 1] then inc(k)
end;
readln;
writeln(k);
readln
end.

 

[nicerap]

//както так int main (){ int a [10000]; int n, i, k; cin >> n; cin>>a[0];// or a[1] k=0; for (i=0, i> a; if (a> a[i-0]) k++ } cout<<k; return 0; }