Составить блок схему для задачи:
Дано трехзначное число. Найти сумму и произведение его цифр.
Ввести трехзначное число А = …
Цифра сотен равна ….
Цифра десяток равна ….
Цифра единиц равна ….
Сумма цифр равно …
Произведение цифр равно …

Объяснение:

Выберите неверное высказывание, если оно имеется в предложении и рядом запиши правильное.

1.Чем меньше угол падения солнечных лучей, тем больше тепла Земля получает.

2. Угол падения солнечных лучей зависит от широты местности.

3. Чем ближе к экватору, тем ниже Солнце над горизонтом.

4.В дни равноденствия на всей Земле день больше ночи.

5.На территории экватора зима мало заметна.

6. Солнце нагревает территорию экватора под углом 90*.

7. Если бы не было наклона земли к плоскости орбиты, то сезоны года сохранились бы.

8. 22 июня день летнего солнцестояния в южном полушарии.

9. Тропики условные линии, очерчивающие область, в которой бывают полярная ночь и полярный день.

10. В день зимнего солнцестояния самый короткий день и самая длинная ночь в году.

11. Полярный день и полярная ночь на Северном и Южном полюсах длится полгода.

12. В Москве сейчас зима , а в Мехико лето.

Const
    n = 25;

var
    a: array[1..n] of real;
    i, j: integer;
    min, max: real;
    sum, product, harmonic: real;

begin
    {ввод массива}
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        a[i] := random(40) - 20;
        write(a[i], ' ');
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('average = ', sum / n);
    
    {минимум и максимум}
    min := a[1];
    for i := 1 to n do
        if min > a[i] then min := a[i];
    writeln('min = ', min);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
    writeln('sum = ', sum);
end.