С клавиатуры вводится температура 7 дней недели. Распечатать в виде: один день недели-температура. Найти среднюю температуру недели, среднюю положительную и среднюю отрицательную. Использовать random от - 3 до 3

Если вводить с клавиатуры, то для чего использовать random?

В программе ввод с клавиатуры отключен.

const n=7;

var t:array[1 ... n] of integer;

sr, srp, sro:real;

i, kp, ko:integer;

begin

Randomize;

for i:=1 to n do

begin

/ / readln (t[i]); / / ввод с клавиатуры

t[i]:=random (7) - 3;

writeln (i,' - ', t[i]:2);

end;

sr:=0; srp:=0; sro:=0;

kp:=0; ko:=0;

for i:=1 to n do

begin

sr:=sr+t[i];

if t[i]>0 then begin srp:=srp+t[i]; kp:=kp+1; end;

if t[i]<0 then begin sro:=sro+t[i]; ko:=ko+1; end;

end;

sr:=sr/n; srp:=srp/kp; sro:=sro/ko; writeln ('Средняя температура недели = ', sr:5:2);

writeln ('Средняя положительная = ', srp:5:2);

writeln ('Средняя отрицательная = ', sro:5:2);

end.

Пример:

1 - - 3

2 - 1

3 - - 2

4 - 2

5 - 2

6 - - 3

7 - 0

Средняя температура недели = - 0.43

Средняя положительная = 1.67

Средняя отрицательная = - 2.67