<em>// PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var c:=ArrRandom(ReadInteger('k='),1,99); c.Println;
var m:=c.Average;
Writeln('Среднее арфифметическое равно ',m);
Writeln('Кол-во элементов, больших ср.арифм: ',c.Where(x->x>m).Count)
end.
<u>Пример</u>
k= 15
74 9 96 97 77 41 51 29 24 26 27 53 5 25 76
Среднее арфифметическое равно 47.3333333333333
Кол-во элементов, больших ср.арифм: 7
При ручной передаче быстрее передавать сообщения, поскольку количество посылок (точек-тире) для часто встречающихся букв меньше, чем для редких.
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
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
Ответ: Объяснение:
8E₁₆ = E*16⁰ + 8*16¹ = 142₁₀
123₈ = 3*8⁰ + 2*8¹ + 1*8² = 83₁₀
34₈ = 4*8⁰ + 3*8¹ = 28₁₀
101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀
13₄ = 3*4⁰ + 1*4¹ = 7₁₀
32₈ = 2*8⁰ + 3*8¹ = 26₁₀
1A₁₆ = A*16⁰ + 1*16¹ = 26₁₀
3B₁₆ = B*16⁰ + 3*16¹ = 59₁₀
