Ответы на вопрос:
Var n,a,s,i: integer; begin write('количество чисел = '); readln(n); writeln(n,' чисел: '); s: =0; for i: =1 to n do begin readln(a); if (a mod 5=0)and(a mod 2< > 0) then s: =s+a; end; writeln('s = ',s); end. пример: количество чисел = 10 10 чисел: 18 40 25 43 61 45 30 54 37 15 s = 85
Популярно: Информатика
-
yanamalykh22.07.2020 00:33
-
dudakovas06.02.2021 09:47
-
lenyabukevich21.12.2021 23:45
-
gleb101pro14.04.2021 07:28
-
tsukikokawaii09.02.2022 06:42
-
Colin0316.03.2021 13:25
-
Kireezy22.07.2021 08:07
-
hik1419.09.2020 22:51
-
maria2008082915.02.2022 09:31
-
123456789er27.04.2020 10:55