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

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

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

Question

Информатика

Эллада

15 февраля, 12:53

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

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

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

+5

Ответы (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.