Question

Постройте блок схему алгоритма, который считает и выводит среднее арифметическое всех чётных двузначных чисел.

Answer 1

Var i,n,sum: integer;
begin
for i:=10 to 99 do
begin
if i mod 2=0 then
begin
inc(sum, i);
inc(n);
end;
end;
writeln(sum/n);
end.

Answer 2

Вот блок-схема алгоритма:

vbnetCopy code
START
SET sum = 0
SET count = 0
FOR i FROM 10 TO 99
    IF i MOD 2 = 0 THEN
        SET sum = sum + i
        SET count = count + 1
    END IF
END FOR
SET average = sum / count
DISPLAY average
STOP

Объяснение блок-схемы:

1. Задаем начальные значения для переменных sum и count (сумма четных двузначных чисел и количество четных двузначных чисел соответственно).
2. Запускаем цикл, который проходит через все двузначные числа от 10 до 99.
3. Если число i является четным, то добавляем его к сумме sum и увеличиваем счетчик count на 1.
4. После того как цикл закончился, вычисляем среднее арифметическое путем деления суммы на количество.
5. Выводим среднее арифметическое на экран.
6. Завершаем программу.