Question

Напишите программу,
которая вычисляет среднюю за неделю температуру воздуха.
Исходные данные вводятся с клавиатуры.
Пример входных данных.
Понедельник>> 12
Вторник>>10
Среда>>16
Четверг>>18
Пятница>>17
Суббота>>16
Воскресенье>>14
Пример выходных данных
Средняя температура за неделю: 14.71

Answer 1

var

 sum, temp, i: integer;

 sr: real;

 d_n: array[1..7] of string;

 

begin

 sum := 0;

 d_n[1] := 'Понедельник>>'; d_n[2] := 'Вторник>>'; d_n[3] := 'Среда>>'; d_n[4] := 'Четверг>>'; d_n[5] := 'Пятница>>'; d_n[6] := 'Суббота>>'; d_n[7] := 'Воскресенье>>';

 for i := 1 to 7 do

 begin

   write(d_n[i]);

   readln(temp);

   sum += temp;

 end;

 writeln(sum / 7);

end.