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

Question

Информатика

Акила

12 июня, 07:54

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

+5

Ответы (2)

Знаете ответ?

Владимира · Answer 1

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.

Настасия · Answer 2

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.