platou.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 23 行

program platou;
{platou=elemente vecine ale unui vector egale.
Sa se afiseze lungimea platoului maxim.}
const n=6;
var i,j,l,p:integer;
    a,b:array[1..n] of integer;
begin
for i:=1 to n do
    begin
         write('a[',i,']= ');
         readln(a[i]);
    end;
l:=1;
for i:=1 to n do
  {  if a[i]=a[i+1] then  }
                       while a[i]=a[i+1] do
                             begin
                             l:=l+1 ;
                             i:=i+1;
                             end;
                       
writeln(l);
end.