Найти номер элемента, с которого начинается самая длинная последовательность единиц, и количество элементов в этой последовательности

@Denis1991Fox · Регистрация: 22.04.2010

Author24 — интернет-сервис помощи студентам

Люди, окажите пожалуйста хелп, буду признателен...Minmax28. Дано целое число N и набор из N целых чисел, содержащий только нули и единицы. Найти номер элемента, с которого начинается самая длинная последовательность единиц, и количество элементов в этой последовательности. Если таких последовательностей несколько, то вывести номер последней из них. Если единицы в исходном наборе отсутствуют, то дважды вывести 0.

@yanyk1n · 23.04.2010, 21:14

Pascal

uses crt;
var i,n,k,max,a,p:integer;
 
begin
    clrscr;
    k := 0;
    max := 0;
    p := 0;
    write('N -> ');
    readln(n);
    write('-> ');    
    for i:=1 to n do
    begin
        read(a);
        if a = 1 then inc(k) else
        if k >= max then
        begin
            p := i-1;
            max := k;
            k := 0;
        end;
    end;
    writeln(p -  max + 1,' ',max);
    readln;
end.

@Denis1991Fox 11 / 5 / 0 Регистрация: 22.04.2010 Сообщений: 55
		1
	Найти номер элемента, с которого начинается самая длинная последовательность единиц, и количество элементов в этой последовательности 23.04.2010, 20:26. Показов 2441. Ответов 1 Метки нет (Все метки) Люди, окажите пожалуйста хелп, буду признателен...Minmax28. Дано целое число N и набор из N целых чисел, содержащий только нули и единицы. Найти номер элемента, с которого начинается самая длинная последовательность единиц, и количество элементов в этой последовательности. Если таких последовательностей несколько, то вывести номер последней из них. Если единицы в исходном наборе отсутствуют, то дважды вывести 0. 1

	23.04.2010, 21:14