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.

0 0

4 года назад

Сколько существует различных последовательностей из символов "плюс" и "минус",длиной ровно в пять символов?

Мария Кромель [7]

<span>количество последовательностей будет равно количеству двоичных чисел, которые можно записать с помощью 5 символов, т.е. 2 ^ 5 = 32.

</span>

0 0

4 года назад

Для передачи по каналу связи сообщения, состоящего только из символов А, Б, В, Г используется неравномерный (по длине) код: А-00

Olesya1

0111110000011100 вроде так, но это не точно

0 0

4 года назад

Решать массивом. Найти сумму элементов, принадлежащих промежутку от А до В (А и В вводить с клавиатуры). составить программу

Елена Феденко [4]

Program n1;
Uses CRT;
Const n=20;
Var m: array[1..n] of integer;
i,a,s,b: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
m[i]:=random(50);
write(m[i]:3);
end;
writeln;
writeln('Введите A и B');
readln(a,b);
For i:=a to b do
s:=s+m[i];
writeln('Сумма равна ',s);
readln
end.

0 0

4 года назад