Type
V = array of integer;
var
i, n, ic, nc, kc, imax, nmax, kmax: integer;
a: V;
begin
write('Введите количество чисел N ');
readln(n);
SetLength(a, n + 1);
writeln('Вводите числа');
for i := 0 to n - 1 do read(a[i]);
writeln;
nmax := -32768;
kmax := 0;
imax := 0;
nc := a[0];
kc := 1;
ic := 1;
for i := 1 to n - 1 do
begin
if a[i] = nc then kc := kc + 1
else begin
if kc < 3 then begin
kc := 1;
nc := a[i];
ic := i
end
else
if kmax <= kc then begin
kmax := kc;
nmax := nc;
imax := ic;
kc:=1;
nc:=a[i];
ic:=i
end
else begin
kc := 1;
nc := a[i];
ic := i
end
end
end;
if kmax <= kc then begin
kmax := kc;
nmax := nc;
imax := ic
end;
writeln('Самая длинная серия содержит ', kmax, ' чисел ', nmax);
for i:=n downto imax+kmax+1 do a[i]:=a[i-1];
a[imax+kmax]:=nmax;
writeln('Модифицированная строка');
for i:=0 to n do write(a[i]:2)
end.
Тестовое решение
Введите количество чисел N 30
Вводите числа
1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 3 3 3 3 1 2 3 3 3
Самая длинная серия содержит 6 чисел 8
Модифицированная строка
1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 8 3 3 3 3 1 2 3 3
Листинг программы в приложении
Программа считывает файл input.txt вида
123 123.00
87 87.0000
567 87.3
987 882.45
и сравнивает integer и real записанные через пробел.
В любой системе счисления число 10 равно основанию этой системы счисления.
Поэтому 10(2)+10(8)+10(10)+10(16)=2+8+10+16=36(10)
1 -6 Февраля. / Понедельник.
2 - Иа.
3 - число "1"
4 - Печка.
5 - Клюв.
6 - Царь.
7 - Марка.
8 - 10 гласных,21 согласная буква.(Всего 33 буквы). - Твёрдый,мягкий знак - не согласная не гласная.
Тут дело в логических выражениях
запрос словестно: (фрегат и эсминец)
ранние запросы:
фрегат или эсминец 3000(a|b)
фрегат 2000(a)
эсминец 2500(b)
вообще, согласно формулам коньюнкции-дизюнкции:
а+b-a|b=a&b
подставляем:
2000+2500-3000=1500
