Написать программу в паскале мясокомбинат получал 6 дней мясо. определить среднее арифметическое количества мяса полученного за эти дни и найти количество дней когда мясокомбинат получал мяса меньше среднего арефметического
188
393
Ответы на вопрос:
Program pr; var a: array[1..6]of real; i,kol: integer; sr_ar: real; begin for i: =1 to 6 do begin readln(a[i]); sr_ar: =sr_ar+a[i]; end; sr_ar: =sr_ar/6; writeln(sr_ar); for i: =1 to 6 do begin if(a[i]< sr_ar) then kol: =kol+1; end; writeln(kol); end.держи, п.с. везет вам, проги на дом писать ), у нас практической части почти нет(удачи!
для хранения информации на компьютере используется долговременная память - жёсткий диск. а компьютерные документы называются файлами.
Популярно: Информатика
-
СилаЛебедя27.12.2022 13:55
-
zeynalova7914.10.2021 14:33
-
anastasiaselina12.03.2022 12:59
-
W1LDOR15.03.2021 04:13
-
RK289028.08.2020 22:51
-
ke7rin31.10.2022 17:17
-
AlisaLisa00512.07.2022 06:32
-
Bayleef14.08.2021 10:13
-
Katyastudio14.12.2022 19:31
-
Yabloco416.11.2021 07:37