Работа с текстовыми файлами: Подсчитать в одномеpном массиве максимальное количество подpяд идущих нулей

@devo4ka · Регистрация: 21.04.2012

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

Помогите плиз решить задачку)))Подсчитать в одномеpном массиве максимальное количество подpяд идущих нулей.)))спасибо заранее

@CodeR · 12.11.2012, 13:33

Pascal

Var f:text;
    A:array[1..100] of integer;
    i,k,max,n:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    n:=0;
    While not Eof(f) do
    Begin
      inc(n);
      read(f,A[n]);
    End;
    Close(f);
    For i:=1 to n do
     write(A[i],' ');
    writeln;
    max:=0;k:=0;
    For i:=1 to n do
     if A[i]=0 then inc(k)
      else
      Begin
        if k>max then max:=k;
        k:=0;
      End;
    if max>0 then writeln('Max последовательность из нулей = ',max)
     else writeln('Нету нулей');
    readln;
End.

Добавлено через 28 секунд
Надо предварительно создать файл in.txt в папке с программой и заполнить числами

@devo4ka · 12.11.2012, 14:00 **[ТС]**

спасибо))работает))

Комментарий модератора

Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@devo4ka 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 23
		1
	Работа с текстовыми файлами: Подсчитать в одномеpном массиве максимальное количество подpяд идущих нулей 11.11.2012, 20:09. Показов 1527. Ответов 2 Метки нет (Все метки) Помогите плиз решить задачку)))Подсчитать в одномеpном массиве максимальное количество подpяд идущих нулей.)))спасибо заранее 0

Опции темы

Работа с текстовыми файлами: Подсчитать в одномеpном массиве максимальное количество подpяд идущих нулей

Решение