Question

Паскаль. ПОЖАЛУЙСТА, ПОМОГИТЕ!
Задан массив целых чисел. Определить, имеются ли в этом массиве три идущих подряд нулевых элемента.
(Желательно с блок-схемой)

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(N div 3);
    Write(' ',A[i])
    End;
For i:= 1 to N-2 do
    if (A[i]=0)and(A[i+1]=0)and(A[i+2]=0) then
       k:=1;
WriteLn;
if k=0 then WriteLn('В массиве нет ряда из трёх нулей')
else WriteLn('В массиве есть ряд из трёх нулей')
End.

Answer 2

Большое Спасибо!!!