Не относится к системе мгновенного обмена сообщениями : г) Dr.Web
это антивирус
<span>Думаю, что нужно представить слово "ЁЖ" в виде аббревиатуры. Алгоритм и объяснения будут зависеть от словосочетания, которое будет обозначено словом "ЁЖ".</span>
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
Var
n,npred,maxs,nseq:integer;
begin
Writeln('Вводите натуральные числа, 0 - конец ввода');
maxs:=0; npred:=-32768; nseq:=1;
repeat
Read(n);
if n<>0 then begin
if n=npred then Inc(nseq)
else begin nseq:=1; npred:=n end;
if maxs<nseq then maxs:=nseq
end
until n=0;
Writeln('Наибольшая длина последовательности равна ',maxs)
end.
<em><u>Тестовое решение:</u></em>
Вводите натуральные числа, 0 - конец ввода
1
5
5
0
Наибольшая длина последовательности равна 2