Впаскале. пусть в массиве содержатся результаты измерений температуры воздуха за декабрь, которые проводились ежедневно. определите сколько дней в декабре температура была выше средней.

248

281

Посмотреть ответы 2

Ответы на вопрос:

nastea3377

Информатика

4,6(20 оценок)

const d = 31; var a: array[1..d] of integer; i, count, mdl: integer; begin for i : = 1 to d do begin a[i] : = random(31); write(a[i], ' '); mdl : = mdl + a[i]; end; writeln; writeln('средняя температура: ', (mdl / d): 0: 2); for i : = 1 to d do if(a[i] > mdl / d) then inc(count); writeln('дни, в которые температура была выше средней: ', count); end.