ответы пишу в форме таблицы
X--Y--Z--1--2--3--4
0--0--0--1--0--0--1
0--0--1--0--0--1--1
0--1--0--0--0--1--1
0--1--1--0--0--1--1
1--0--0--0--0--1--1
1--0--1--0--0--1--1
1--1--0--0--0--1--1
1--1--1--0--1--1--0
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-99,99); a.Println;
a.OrderBy(t->t).Println; // 1
var b:=Copy(a); b.Transform(t->t mod 10=0?0:t); b.Println; // 2
Range(2,n-1,3).Select(i->a[i]).Println; // 3
Writeln('Элементов после max: ',n-a.IndexMax-1) // 4
end.
<u>Пример</u>
n= 20
8 37 88 31 -15 -26 -34 24 -31 -31 -91 -40 -49 -91 45 -30 -79 -78 -2 39
-91 -91 -79 -78 -49 -40 -34 -31 -31 -30 -26 -15 -2 8 24 31 37 39 45 88
8 37 88 31 -15 -26 -34 24 -31 -31 -91 0 -49 -91 45 0 -79 -78 -2 39
88 -26 -31 -40 45 -78
Элементов после max: 17
Токо на 2
<span>Дано: N(ч) = 8; N(б) = 24. </span>
<span>Найти: i(ч) = ? </span>
<span>Решение: </span>
<span>1)N = 8 + 24 = 32 — всего шаров. </span>
<span>2)р (ч) = 8/32 =1/4 — вероятность доставания черного шара. </span>
<span>3) i(ч) = log2 ( 1/(1/4)) = 2 бита. </span>
<span>Ответ: 2 бита.</span>
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
