Заполнить массив из 9 элементов случайными числами в интервале 10; 150 и найти сумму элементов массива у которых вторая с конца цифра нечетная
116
390
Ответы на вопрос:
Var a: array [1..9] of integer; i,k,b: integer; begin randomize; writeln('массив: '); for i: =1 to 9 do begin a[i]: =random(141)+10; write(a[i],' '); end; writeln; for i: =1 to 9 do begin if a[i]< =99 then if ((a[i] div 10) mod 2)< > 0 then k: =k+a[i]; if a[i]> 99 then begin b: =a[i] div 10; if (b mod 2)< > 0 then k: =k+a[i]; end; end; writeln('сумма элементов у которых вторая с конца цифра нечетная: ',k); end.
Популярно: Информатика
-
Соня1213141523.01.2023 16:36
-
Nastya113837315.02.2021 00:20
-
Lee3517.02.2022 13:19
-
Злата161622.06.2022 17:49
-
DragaoMad01.08.2022 23:50
-
debiltrue17.10.2021 06:48
-
DimasStar130.12.2020 09:14
-
hehehdhd10.10.2022 13:46
-
Ķрičтina06.08.2020 16:15
-
alexandra97704.04.2023 07:57