Составить программу вычисления средней температуры за месяц

Question

Информатика

Сосипатра

9 апреля, 06:29

Составить программу вычисления средней температуры за месяц

+1

Ответы (2)

Знаете ответ на вопрос?

Эмилиана · Answer 1

Program z;

uses crt;

var

s, x, i:real;

begin

clrsc;

x:=0

for i:=1 to 30 do begin

writeln ('введите температуру') ;

readln (x) ;

sr:=sr+x;

end;

y:=sr/30;

writeln ('ср темп равна', y) ;

readln;

end.

Павелка · Answer 2

const

n = 30; / / n - количество дней в месяце

var

t: array [1 ... n] of real;

i: integer;

s: real;

begin

s: = 0;

for i: = 1 to n do

begin

writeln ('Введите температуру ', i, ' дня') ;

readln (t[i]) ;

s: = s + t[i];

end;

writeln ('Средняя температура за месяц: ', s / n) ;

end.