Какое количество информации мы получим вытащив 1 шарик из 128?

1. Когда они принимались работать всерьёз, там, на экранах и электронных картах противника начинали происходить чудеса.

2. Универсальная электронная карта (УЭК) — совсем новый продукт на российском рынке.

3. Удобнее всего использовать электронные карты на смартфоне, потому что хороших бумажных карт по стране нет.

4. Его склонились над электронной картой, сидели возле пульта, нажимая на кнопки и рычажки — всё как на картинке из детского учебника.

5. Карты моментального выпуска Instant Issue — электронные карты без персонализации фамилии владельца на лицевой стороне карты.

6. Обладают всеми функциональными возможностями электронной карты и преимуществом моментальной выдачи карты клиенту при его обращении в банк.

7. MasterCard Electronic — кредитные электронные карты начального уровня.

8. Подсистемы выдали на отдельный экран гибридную модель местности, как выглядела она при составлении электронных карт.

9. Индикатор, электронная карта с навигатором, устройство связи, мини-компьютер, доступ к кредиткам и даже плеер.

10. Прогресс не стоит на месте, теперь всюду находятся видеокамеры слежения, следует обзавестись электронными картами для свободного движения по территории.

//PascalABC.NET
//Дан целочисленный массив из 40 элементов. Элементы массива могут
//принимать значения от -10000 до 10000. Написать алгоритм, который
//находит и выводит среднее арифметическое всех отрицательных элементов
//массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один
//такой элемент в массиве есть. Исходные данные объявлены так, как
//показано ниже. Запрещается использовать переменные, не описанные
//ниже, но разрешается не использовать часть из них.

const
    N = 40;
var
    //a : array[1..N] of integer;
    i, s, r, x : integer;
    sr: real;
begin
    //Для любителей заполнять вручную:
    //for i := 1 to 40 do readln(a[i]);
    
    //Заполним массив 40-ка случайными значениями
    var a := ArrRandomInteger(N+1, -10000, 10000);
    //Гарантировано разместим число, оканчивающееся на 7
    a[Random(0,40)] := -10 * Random(0,999) - 7;
    //Уберем лишний элемент, созданный автоматически
    a[0] := 0;
    //Напечатаем массив
    a.println;
    writeln('----------------');
    //Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7
    //число, учтём его
    foreach i in a do
        if (i < 0) and (i mod 10 = -7) then begin
            r += i; s += 1; write(i,' ')
        end;
    //Выведем среднее арифметическое
    writeln('Ср.ар: ',r/s)
end.