Составить задачу на нахождение наибольшего, наименьшего элемента массива, вывести количество элементов массива, которые удовлетворяют заданное вами условие, просуммировать найденные элементы. массив задать вручную в диапазоне от 1до20, в массиве должно быть 13 элементов, элементы могут повторяться к задаче составить блок-схему и программу 1.задача (условие, значение элементов, диапазон у вас у всех будет свой) 2. блок-схема 3. программа три составляющие, которые у вас должны быть.

                                        ДВОРНЯГА
                                       ШАРИК ТУЗИК БАРБОС
                                            БУЛЬДОГ
                                              цезарь 
                                               граф
                                                васнсар
                                                   гари   
                                                   пудель
                                                    эмма белла джозефина стелла

                                                     

При условии что каждый больной заражает от 1 до 5 человек каждый день, и что больные упорно ходят в школу

const
    min_posible = 1;
    max_posible = 5;
var all_students, ill, new_ill, days, i: integer;
Begin
    Randomize;
    Writeln('Кол-во учеников школы =>');
    read(all_students);
    ill := 1;
    repeat
        days := days + 1;
        new_ill := 0;
        for i := 1 to ill do
            new_ill := new_ill + Random(min_posible, max_posible);
        ill := ill + new_ill;
        Writeln('День ',days:3,': Заразилось ',new_ill:5,' Больных ',ill:5);
    until ill >= all_students;

    Writeln(days);
End.