Ответы на вопрос:
Если надо найти ср. арифметическое одновременно и четных чисел и нечетных индексов: var a: array[1..20] of integer; i, k, s: integer; begin for i: =1 to 20 do begin a[i]: =random(1,10); if (a[i] mod 2=0)or(i mod 2< > 0) then begin k: =k+1; s: =s+a[i]; end; end writeln((s/k): 17: 2); end.
Популярно: Информатика
-
Erkina00019.03.2020 13:50
-
polly00909025.04.2022 14:29
-
Rus992223.04.2021 20:55
-
magnoliya22061918.10.2022 16:54
-
малика22523.08.2021 05:09
-
123456789124302.01.2022 09:59
-
EgorKuleshov02.04.2023 18:20
-
виталий12407.12.2022 12:54
-
MamurovShavkat25.07.2021 02:05
-
urkashkz77718.02.2023 20:22