program asdassg;
uses crt;
var a:array [1..10]of integer;i,lmax,l:integer;
begin
writeln('vvedite elementu vectora') ;
for i:=1 to 10 do read (a[i]) ;
for i:=1 to 10 do write (a[i],' ' );
writeln;
lmax:=0; l:=0;
for i:=2 to 10 do begin
if (a[i]=a[i-1]) and (a[i]=0) then l:=l+1 else l:=1;
if l>lmax then lmax:=l;
end;
writeln('samaya dlinnaya posledovatelnost 0 =',lmax);
end.
<span>В целом выделяют три типа топологии, все прочие являются подтипами
1) Кольцевая.
2) Шина.
3) Звезда.
Каждый из типов имеет ряд преимуществ и недостатков.
</span>
1.
<span>var a,b,c,t:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
t:=a;
a:=b;
b:=c;
c:=t;
writeln('a = ',a,' b = ',b,' c = ',c);
end<span>.
Пример:
</span><span>a, b, c:
5 8 3
a = 8 b = 3 c = 5
2.
var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
writeln(a,' / ',b,' = ',a/b:6:3);
end.
Пример:
<span>a, b:
5 8
5 / 8 = 0.625</span></span></span>