Составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму эелементов с чётными значениями и количиство элементов с нечётными значениямиъ
135
197
Ответы на вопрос:
Var f: array[1..10] of integer; i,suma,sumb: integer; begin randomize; for i: =1 to 10 do begin f[i]: =random(10)+10; write(f[i],' '); end; suma: =0; sumb: =0; for i: = 1 to 10 do if f[i] mod 2 = 0 then suma: =suma+f[i]; else sumb: sumb+f[i]; writeln('сумма четных: ',suma); writeln('сумма нечетных: ',sumb); end. var f: array[1..8] of integer; i,k,sumb: integer; begin randomize; for i: =1 to 8 do begin f[i]: =random(10)+10; write(f[i],' '); end; k: =0; sumb: =0; for i: = 1 to 8 do if f[i] mod 2 = 0 then k: =k+1; else sumb: sumb+f[i]; writeln('количество четных: ',k); writeln('сумма нечетных: ',sumb); end.
Популярно: Информатика
-
пучкаек28.08.2022 00:11
-
Gofer53508.12.2021 13:24
-
ллл10717.07.2021 04:33
-
ученик186207.04.2020 09:31
-
СофаСтар220.10.2020 00:25
-
bcvfb16.03.2021 07:46
-
FleachBeast11.08.2020 22:25
-
8962775012215.06.2022 02:16
-
Uknowmyname27.11.2021 07:41
-
gregsorvenkov04.04.2022 12:13