Дальше у нас идёт цикл в предусловием, который будет "откусывать" по цифре каждый проход, пока n > 0. Внутри цикла мы проверяем цифру на четность, если четна, то мы прибавляем к сумме, если нет, то ничего не делаем.
Получается, что программа находит сумму четных цифр в числе.
В нашем числе 2 четные цифры, 4 + 8 = 12
ответ: 12
mdubov59
31.07.2021
Const n=10; var a:array[1..n] of integer; i,kp,sn: integer;
begin Randomize; Writeln('Элементы массива'); kp:=0; sn:=0; for i:=1 to n do begin a[i]:= Random(31)-10; Write(a[i]:4); if a[i]>0 then Inc(kp); if (i mod 2)<>0 then sn:=sn+a[i] end; Writeln; Writeln('Количество положительных элементов: ',kp); Writeln('Сумма элементов на нечетных местах: ',sn); Writeln('Элементы массива после замены'); for i:=1 to n do begin if a[i]<10 then a[i]:=10; Write(a[i]:4) end; Writeln end.
Тестовое решение: Элементы массива 10 11 -4 11 12 13 -1 -2 -8 7 Количество положительных элементов: 6 Сумма элементов на нечетных местах: 9 Элементы массива после замены 10 11 10 11 12 13 10 10 10 10
orinvarostov
31.07.2021
1. Электронная таблица представляет собой совокупность нумерованных строк и поименованных столбцов(латинскими буквами)
2. Свойство алгоритма,заключающееся в отсутствии ошибок,алгоритм должен приводить к правильному результату для всех допустимых входных значений,называется результативность.
Привет! Давай разберемся, что делает программа.
Пользователь вводит число (148).
Дальше у нас идёт цикл в предусловием, который будет "откусывать" по цифре каждый проход, пока n > 0. Внутри цикла мы проверяем цифру на четность, если четна, то мы прибавляем к сумме, если нет, то ничего не делаем.
Получается, что программа находит сумму четных цифр в числе.
В нашем числе 2 четные цифры, 4 + 8 = 12
ответ: 12