Ребят всем при привет кто поможет
Нужно перевести с языка программирования pascal на с++
const n=30;
var
a: array [1..n] of integer;
k: array [1..n] of integer;
i,max:integer;
begin
for i:=1 to n do begin
k:=0;
end;
writeln(' v promegytke (-20^+20) nemperatyra ');
for i:=1 to n do
begin
writeln('t[',i,']=');
readln(a);
end;
for i:=1 to n do
if (a<0) then a:= k;
for i:=1 to n do begin
if (k<k[i+1])>:=max;
end;
writeln('Maksimalnaia sredi zamorozkov= ',max);
readln;
end.