56

А) найдите среднюю температуру за неделю

ruslan63 28 марта 2023

А) найдите среднюю температуру за неделю (температура была: -5, — 3, -7, -6, -2, — 4, -3) Сколько дней было выше средней? Ниже средней? Составить массив.

категория: информатика

61

Program Frank; const n=7; Type mas=array[1… n] of integer; var a: mas; i,sym,k,k1: integer; sredn: real; begink: =0; k1: =0; a[1]: =-5; a[2]: =-3; a[3]: =-7; a[4]: =-6; a[5]: =-2; a[6]: =-4; a[7]: =-3; sym: =0; for i: =1 to n do beginsym: =sym+a[i]; end; sredn: =sym/n; for i: =1 to n do beginif a[i]>sredn then k: =k+1else if a[i]

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...