Нужно перевести паскаль код на питон!

Помогите пожалуйста перевести этот код ка питон!!! Спасибо заранее!!!
const n=20;
var a:array[1..n] of integer;
kk,k,
i,{начало максимального количества 0}
i1,
d,{максимальное количество 0}
d1,
max:integer;
sk:integer;{колчество последовательностей с максимальным количеством 0}
f:boolean;
begin
randomize;
sk:=1;
i:=0;d:=0;i1:=0;d1:=1;
a[1]:=random(51);
max:=a[1];
write(a[1],' ');
if a[1]=0 then begin i1:=1;d1:=1 end;
for k:=2 to n do
begin
kk:=random(2);
if odd(kk) then a[k]:=0
else a[k]:=random(51);
write(a[k],' ');
if a[k]>max then max:=a[k];
if a[k]=0
then
if a[k-1]=0 then inc(d1)
else begin
if d1=d then inc(sk);
if d1>d then begin d:=d1;i:=i1;sk:=1 end;
d1:=1;
i1:=k;
end
end;
if d1=d then inc(sk);
if d1>d then begin d:=d1;i:=i1;sk:=1 end;
writeln;
writeln('максимальное количество нулей ',d);
writeln('количество последовательностей, содержащее максимальное количество нулей ',sk);
writeln('первая позиция вхождения максимального количества нулей ',i);
writeln('максимальный элемент ',max);
k:=i;
while k<=n do
begin
d1:=0;
i1:=k;
kk:=k;
while (kk<=n)and(a[kk]=0)and(sk>0) do begin inc(d1);inc(kk) end;
if d1=d then
begin
for k:=i1 to i1+d-1 do a[k]:=max;
dec(sk)
end;
inc(k)
end;
for k:=1 to n do write(a[k],' ')
end.

0

Draxler NR,

1) Это не код, а текст. Чтобы это исправить надо заключить код в теги.
2) Условие задачи не помешало бы прикрепить, чтоб не вникать код.
3) "Заранее спасибо", тобишь ты не заинтересован в решении и не хочешь тратить свое время. А почему мы должны?

0

1) Хорошо, ошибся буду знать.
2) Вот условия(В одномерном массиве A=(a1, а2, ..., аn) группу из подряд идущих нулей заменить на максимальный элемент массива)
3) Я сам пытался,но у меня не вышло, так как я не знаю языка паскаль и решил обратится к вам, и я начинающий программист!))
Спасибо за понимания!

0

Сообщение от Draxler NR 3) Я сам пытался,но у меня не вышло, так как я не знаю языка паскаль и решил обратится к вам, и я начинающий программист!)) Спасибо за понимания!

Не получилось совсем, то есть и результата попытки никакого не дали? Ну, то есть даже неработающего? А то, может быть, стоит выложить сюда то, что получилось?

0

0