С клавиатуры вводится температура 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