Question

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

Answer 1

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.

Answer 2

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.

Answer 3

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