2. дан массив из n элементов. определить количество элементов, имеющих четные порядковые номера и являющихся нечетными числами.
266
353
Ответы на вопрос:
Var a: array[1..1000] of longint; n, i, k: longint; begin k: =0 readln(n); for i: =1 to n do begin readln(a[i]); if (i mod 2 = 0) and (a[i] mod 2 = 1) then k: =k+1; end; writeln(k); end.
Program dz; var a,b,c: real; var d: real; begin readln (a,b,c); d : = (a+b+c)/3; writeln (d); end. думаю самое легкое решение, самое не мудреное (пысы люби паскаль)
Популярно: Информатика
-
romanchuknina08.05.2020 19:41
-
zakrevskaya98918.06.2022 12:16
-
elyavlasova05.09.2020 06:16
-
DenNewLen3824.03.2023 15:49
-
Фара132303.09.2020 01:26
-
Рома376237843309.03.2021 06:05
-
Vika792872827226.12.2020 06:45
-
vlad007g06.10.2020 12:42
-
asem05201.11.2021 18:39
-
Losvlosinavhlasinah20.09.2020 10:45