преобразовать в код С++

[daniil2010]

Написал прогу на Паскале

Вот условие:
Дан массив из N целых чисел. Его значения- только нули и единицы. Найти номер элемента, с которого начинается самая длинная последовательность одинаковых чисел.

А как это реализовать на С++?


текст программы:

uses
CRT;

const
n = 10; 

var
x: array [1..n] of integer; 
i, max, max1, k, s, kk, ss, j: integer; 

begin
ClrScr; 
for i := 1 to n do 
begin
{ввод и проверка данных} 
repeat 
write(i, ' '); readln(x[i]); 
until (x[i] = 0) or (x[i] = 1); 
end; 
{вывод исходной последовательности} 

//(1) данная часть практически идентична (2)//
// часть (1)

for i := 1 to n do
write(x[i]); 
writeln; 
s := 0; max := 0; 
for i := 1 to n do 
if x[i] = 0 then inc(s) 
else if s > max then 
begin
max := s; k := i - 1; s := 0
end; 

{Если самая длинная подпоследовательность 
в конце последовательности} 
if s > max then 
begin
max := s; k := n
end; 
{вывод результата} 

writeln(max, ' ', k - max + 1, ' ', k);
readln;

//часть (2)

for j := 1 to n do
write(x[j]); 
writeln; 
ss := 0; max1 := 0; 
for j := 1 to n do 
if x[j] = 1 then inc(ss) 
else if ss > max1 then 
begin
max1 := ss; kk := j - 1; ss := 0
end; 

{Если самая длинная подпоследовательность 
в конце последовательности} 
if ss > max1 then 
begin
max1 := ss; kk := n
end; 
{вывод результата} 
writeln(max1, ' ', kk - max1 + 1, ' ', kk); 
readln;

if max > max1 then writeln('sam dlin posled=', max, ' ', 'nachin c posic ', k - max + 1, ' do pos ', ' ', k)
else writeln('sam dlin posled=', max1, ' ', 'nachin c posic ', kk - max1 + 1, ' ', ' do pos ', kk);
readln;


end.

[[CODER]]

Чем тебя ЭТОТ вариант не устроил?

[daniil2010]

Я сначало не мог разобраться с кодом.
Но посмотрел еще раз и теперь все понял, как он работает.