Завтра зачет Т__Т

[Лесная Эльфийка]

Даны натуральное число n, целочисленный
массив А размерностью n. Рассмотреть отрезки последовательности А (под
последовательности идущих подряд элементов), состоящие из простых чисел.
Определить наибольшую из длин рассматриваемых отрезков.

Не могу решить, но очень нужно, т.к. не дадут допуск к экзамену Т__Т

[GetMax]

Var
  Mas:Array[1..100] of Byte;
  N:Byte;
  I:Byte;
  j:Byte;
  Prostoe:Boolean;
  Kol:Byte;
  MaxKol:Byte;
begin
  Randomize;
  Write('N = ');
  Readln(N);
  For i:=1 to N do
  Begin
    Mas[i]:=2+Random(20);
    Write(Mas[i]:3)
  End;
  Writeln;
  Kol:=0;
  MaxKol:=0;
  For i:=1 to N do
  Begin
    Prostoe:=True;
    For j:=2 to Mas[i]-1 do
    If (Mas[i] mod j = 0) then
    Begin
      Prostoe:=False;
      Break
    End;
    If Prostoe = True then
    Begin
      Inc(kol)
    End
    Else
    If Prostoe = False then
    If Kol >= MaxKol then
    Begin
      MaxKol:=Kol;
      Kol:=0
    End;
 End;
 Writeln('Max dlina = ',MaxKol);
 Readln
End.

[artemavd]

Свои наработки? Своих наработок нет. Закрыто.