Для n вводимых чисел найти s, k, среднее арифметическое для чисел кратных 2 и не кратных 3
299
497
Ответы на вопрос:
Program qq; var a: array[1..n] of integer; i,k,s,sa: integer; begin for i: =1 to n do readln(a[i]); k: =0; sa: =0; s: =0; for i: =1 to n do if (a[i]mod2=0) and (a[i]mod3< > 0) then begin k: =k+1; s: =s+a[i]; end; sa: =s/k; writeln(k, s, sa); end.
C++#include < iostream> using namespace std; int maiin(){ int ocenka = 0, count = 0, pol = 0, otr = 0; while(count< =29){ cout< < "введите оценку : "; cin> > ocenka; //получили оценку if (ocenka> =3){pol++; } else {otr--; } count++; }cout< < "положительных - "< < pol< < " ; отрицательных - "< < otr< < endl; return 0; }
Популярно: Информатика
-
svetasvetashi02.11.2022 06:37
-
vadiЬПФН28.06.2023 01:36
-
AnitaGo25.03.2020 18:25
-
яннис108.06.2023 13:29
-
bilianskamaria0301.09.2020 22:34
-
Botan001102.03.2021 21:11
-
leraromanova024.05.2020 22:16
-
gulitenko23.01.2021 13:17
-
fedos148829.11.2022 17:26
-
zeriss23ozvp1814.02.2022 10:19