Отрезки массива

[FredPerry]

Дан одномерный массивиз 12 элементов. Рассмотреть отрезки массива, состоящие из элементов кратных 3(элементы кратные 3 должны стоять подряд.) Найти наибольшую из длин рассматриваемых отрезков.

Program laba;
uses crt;
var
	a : array[1..12] of integer;
	i, j, max, buf, k, n : integer;
function kr(x : integer) : boolean;
begin
	if x mod 3 = 0 then
		kr := true
	else
		kr := false;
end;
begin
	clrscr;
	for i := 1 to 12 do
	begin
		WriteLn('a[', i, '] = ');
		ReadLn(a[i]);
	end;

	max := 1;

	for i := 1 to 12 do
	begin
		if kr(a[i]) then
		begin
			j := j + 1;
			n := n + 1;
		end
		else
			k := i;
		if j > max then
			max := n;
	end;
end.

[Mad_Cat]

странный код

function kr(x : integer) : boolean;
begin
	kr:= x mod 3 = 0 
end;

зачем вам

j := j + 1;

не проще ли

if n > max then begin
			max := n;
n:=0;
end;

n:=0 //проинициализировать  забыли и последнюю последовательность если она кончается числом кратным 3 рассмотреть нужно

проверяйте)

var
  a:array[1..12] of integer;
  i,n,m:integer;
begin
  n:=0;m:=0;
  For i:=1 to 12 do
    begin
      readln(a[i]);
      if (a[i] mod 3=0) then
        begin
          n:=n+1;
          if (n>m) then m:=n
        end
      else
        n:=0;
    end;
  For i:=1 to 12 do
  write(a[i],' ');
  writeln;
  writeln(m)
end.

[FredPerry]

Спасибо, можно закрывать