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

program example;const n=7;var sr:real;i:integer;a:array[1..n] of integer;begin sr:=0; writeln('Vvedite temperaturu za kajdyi den '); for i:=1 to n do begin readln(a[i]); sr:=sr+a[i]; end; sr:=sr/7; write('Srednya temperatura = ',sr:0:2); readkey;end.

Можно было короче и без массивов, меньше памяти будет требовать

program example;const n=7;var sr:real;i:integer;a:array[1..n] of integer;begin sr:=0; writeln('Vvedite temperaturu za kajdyi den '); for i:=1 to n do begin  readln(a[i]);  sr:=sr+a[i]; end; sr:=sr/7; write('Srednya temperatura = ',sr:0:2); readkey;end.