Водном массиве найти среднее арифметическое четных элементов стоящих на не нечетных местах .паскаль
266
325
Ответы на вопрос:
Pascal abc. программа прикреплена к ответу var a: array[1..100] of integer; i,n,s,k: integer; sr: real; begin write('введите кол-во эл-тов массива: '); read(n); for i: =1 to n do begin a[i]: =random(60); write(a[i]: 4); end; for i: =1 to n do if (a[i] mod 2=0) and (i mod 2< > 0) then begin s: =s+a[i]; inc(k); end; writeln; writeln('срзнач= ',s/k: 4: 2); end.
Популярно: Информатика
-
rjt5416.06.2023 18:39
-
марго17011.01.2021 16:08
-
Sasjaghf11.01.2021 20:01
-
konstantin4212723.03.2020 20:53
-
Rexmaster015.11.2022 13:51
-
ivanovaanastasi104.10.2020 19:58
-
omar2824.04.2022 06:08
-
IdzSen09.09.2020 17:39
-
1234fghh03.08.2022 04:00
-
vovakornev200212.07.2021 15:10