Напишите программу на языке паскаль, которая в конце выведет среднемесячную температуру.

285

440

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

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

vddrobysheva

Информатика

4,5(99 оценок)

Const n=30; var a : array[1..n] of integer; sum,i : integer; begin randomize; for i: =1 to n do begin a[i]: =random(20)+10; write(a[i],' '); end; writeln; sum: =0; for i: =1 to n do sum: =sum+a[i]; writeln('среднемесячная температура = ',sum/n); end. пример (для n=10): 15 22 27 20 23 13 23 25 29 26 среднемесячная температура = 22.3

Nekotin0

Информатика

4,8(75 оценок)

Вне сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. это позволит заодно осуществить контроль ввода. var n,s,t,i: integer; begin write('укажите количество данных: '); read(n); writeln('теперь вводите данные'); s: =0; for i: =1 to n do begin read(t); s: =s+t end; writeln('средняя температура за месяц составила ',s/n: 0: 1) end. пример решения укажите количество данных: 11 теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 средняя температура за месяц составила 27.4