===== PascalABC.NET =====
= 1 =
begin
var n := ReadInteger('N =');
var A := ArrRandom(n, -99, 99);
A.Println;
// собственно, решение
var s := A.Sum; // сумма всех элементов массива
var L := new List<integer>; // то, что войдет в массив В
// берем каждого претендента и сравниваем его с остальной суммой
for var i := 0 to A.High do
if (Abs(A[i] mod 10) = 5) and (A[i] > s - A[i]) then
L.Add(A[i]);
var B := L.ToArray;
if B.Length > 0 then
begin
Print('Особые элементы:');
B.Print
end
else
Print('Нет "особых" элементов');
end.
= 2 =
begin
var n := ReadInteger('N =');
var A := ArrRandom(n, -10, 10);
A.Println;
// собственно, решение
var D := new Dictionary<integer, integer>; // словарь
foreach var k in A do // перебор элементов
if D.ContainsKey(k) then
D[k] += 1 // +1, если такой элемент был
else
D.Add(k, 1); // 1, если элемент встретился впервые
D.Count(p -> p.Value > 1).Print
end.
7
Объяснение:
Пойдём с самого начала. Сначала идут 4 длинных сигнала. Из представленных вариантов мы можем использовать только О:
О_.._..__...
За буквой О идёт один длинный сигнал и две точки. Двух точек нет, но есть одна, это буква Н:
ОН._..__...
Последовательности, начинающаяся с короткого сигнала и длинного нет, так что это буква Е:
ОНЕ_..__...
Мы получили такую же последовательность, как и на второй операции, букву Н:
ОНЕН.__...
Снова одна точка, то есть буква Е:
ОНЕНЕ__...
Последовательность из двух длинных сигналов одна - это буква З:
ОНЕНЕЗ.
Последняя точка - это буква Е:
ОНЕНЕЗЕ
Длинна данного слова - 7.
