Question

Программа, которая вычисляет среднюю температуру за неделю. Исходные данные вводятся с клавиатуры

Answer 1

Исходные данные: П=12; В=10; С=16; Ч=18; П=17; С=16; В=14.
Выходные данные: 14.71

Код на Паскаль:
program z_6;
var i: integer;
s: real;
a: array [1..7] of real;
d: array [1..7] of string;
BEGIN
s:=0;
writeln ('Введите температуру');
for i:=1 to 7 do begin
if i=1 then write('Понедельник>>');
if i=2 then write('Вторник>>');
if i=3 then write('Среда>>');
if i=4 then write('Четверг>>');
if i=5 then write('Пятница>>');
if i=6 then write('Суббота>>');
if i=7 then write('Воскресенье>>');
readln (a[i]);
s:=s + a[i];
end;
s:=s/7;
writeln('Средняя температура за неделю: ', s:0:2);
END