1. Напишите программу,

которая запрашивает температуру

воздуха в течение недели и запоминает введённые значения в массиве temper, затем вычисляет среднее значение температуры.

Question

Информатика

Геронтий

13 апреля, 21:13

1. Напишите программу,

которая запрашивает температуру

воздуха в течение недели и запоминает введённые значения в массиве temper, затем вычисляет среднее значение температуры.

+3

Ответы (1)

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

Наркис · Answer 1

Var temper:array[1 ... 7] of integer; i, S:integer; sa:real;

Begin

writeln ('Введите 7 значений температуры воздуха: ') ;

S:=0;

for i:=1 to 7 do begin

readln (m[i]) ;

S:=S+m[i]; end;

sa:=S/7;

writeln (sa) ;

readln;

end.