# Write a program in Pascal, find the arithmetic mean temperature for a week

August 24, 2021 | education

| var

sum: real; // variable declaration.

i, t: integer; // declaration of variables of integer type.

begin

writeln (‘Enter the temperature for each day of the week:’); // display the string to the screen.

for i: = 1 to 7 do // start of the cycle.

begin

readln (t); // read the temperature value for the day.

sum: = sum + t; // calculate the sum of temperatures.

end;

writeln (‘The arithmetic average temperature for the week is:’, round (sum / 7, 2)); // answer.

end.

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.