Question

Напишите программу которая последовасти натуральных чисел находит номер последнего элемента оканчивающиеся на цифру 8. Если в последовательности нет таких элементов, то ввести сообщение NO. Последовать формируется в программе посредством генерации случайных чисел. Элементы последовательности принимают значения от 0 до 30000. Количество чисел 100

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (i, m):=(1, 0);

 SeqRandom(100, 0, 30000)

     .Foreach(t ->

     begin

       if t mod 10 = 8 then m := i;

       Inc(i);

       t.Print

     end);

 Println;

 Println;

 if m = 0 then Print('NO')

 else m.Print

end.

Answer 2

То есть нельзя создать последовательность, вывести её на экран, затем отсортировать её и снова вывести на экран

Answer 3

Не совсем так. Если есть формула для получения членов последовательности, она будет генерироваться сколько угодно раз, но каждый раз просматриваться от начала. Такие последовательности называются в теории немутирующими. Если же последовательность мутирующая, то либо алгоритм должен быть однопроходным, либо ее нужно сохранить в массив. Например, ка в случае использования датчика случайных чисел или клавиатурного ввода.

Answer 4

С мутирующими последовательностями поступают так например, как вот я поступил в своем решении.

Answer 5

Понятно, спасибо)

Answer 6

Пожалуйста