famin19810
21.05.2023 15:25

Постройте структурную схему алгоритма поиска среднего роста учащихся в вашей группе, а также минимального и максимального значений роста. Используйте массив для описания списка учащихся, циклическую конструкцию для поиска минимального и максимального элемента в массиве, а также суммирования всех элементов этого массива.
Результат представьте как итог вычисления среднего арифметического, а для минимального и максимального роста учащихся, сообщите соответствующие номера этих студентов в списке группы.
Блок-схему алгоритма прикрепить в виде текстового файла.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
мяустик
18.06.2022 03:07
На каком бы этаже не жил(а) Саша, информация об этом этаже является одним вариантом из 38. Для такого случая американский ученый Ральф Хартли в 1928 году предложил несложную формулу. Об этом Вы можете почитать в учебниках или в Интернет. А запомнить нужно немножко другое. Дробь 1/38 "переворачиваем", получая 38. И теперь наша задача подобрать такую степень числа два, чтобы эта двойка, возведенная в подобранную нами степень, дала 38. В математике используют понятие логарифма по основанию 2 и пишут, что наш ответ - это ㏒₂38 ≈ 5.25 - именно во столько бит.и оценивается информация. Ну а приближенно мы помним, что 2⁵=32, 2⁶=64, а 38 - это между ними. Если нужно целочисленное решение - округляем до большего и даем ответ 6 бит.
0,0(0 оценок)
Ответ:
kristishkalniza
19.02.2022 21:15
Будут вопросы - задавайте.

type a = array[0..999] of Integer;
var B, num: a; var N, k: integer; 
 
procedure SimpleNumber(B: a);
begin
    for var i := 0 to N-1 do begin
        for var j := 2 to 9 do begin
            if B[i] mod num[j] <> 0 then
                k += 1;
        end;
        if k = 8 then begin
             write('Есть простое число');
            break;
        end
        else if (k <> 8) and (i = N-1) then 
           write('Нет простых чисел');
        k := 0;
    end;
end;

begin
    for var i := 2 to 9 do begin
        num[i] := i;
    end;
    read(N);
    for var i := 0 to N-1 do 
        read(B[i]);
    SimpleNumber(B);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота