Определить, есть ли в последовательности два идущих подряд нулевых члена - Turbo Pascal

Формулировка задачи:

помогите плиз Задача 2 Даны натуральное n и целые числа c1, c2, … , cn. Имеются ли в последовательности c1, c2, … , cn: а) два идущих подряд нулевых члена; б) три идущих подряд нулевых члена?


textual

Код к задаче: «Определить, есть ли в последовательности два идущих подряд нулевых члена - Turbo Pascal»

program leonta_1;
uses    crt;
CONST   n = 100;
var
        c        : array [1..n] of integer;
        i,k,m,j  : integer;
BEGIN
   clrscr;randomize;
   writeln('Исходный массив:');writeln;
   j:=0;k:=0;m:=0;
   for i:=1 to n do
       begin
         c[i]:=random(3);
         write(c[i]:7);
         if i mod 10 = 0 then writeln;
         if i>=2 then
           begin
             if (c[i]=0)and(c[i-1]=0) then
               begin
                 inc(j);
               end
                                      else
               begin
                 case j of
                      1 : begin inc(k);end;
                      2 : begin inc(m);end;
                 end;
                 j:=0;
               end;
           end;
       end;
    writeln;
    writeln('Два нуля подряд = ',k:5);
    writeln('Три нуля подряд = ',m:5);
   readln;
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.923 из 5

Источник