Информатика: Нужна с информатикой, вообще не знаю кумира : d

katerinam2001

18.12.2022 08:52

Информатика

Есть ответ 👍

Нужна с информатикой, вообще не знаю кумира : d

205

384

Посмотреть ответы 1

Ответы на вопрос:

СветланаСветик3

Информатика

4,7(88 оценок)

Var st: real; i,n: integer; t: array[1..31]of integer; begin writeln('температура в январе: '); for i: =1 to 31 do begin t[i]: =random(-10,5); write(t[i],' '); st: =st+t[i]; if t[i]< 0 then n: =n+1 end; st: =st/31; writeln; writeln('число дней с отр.температурой: ',n); writeln('средняя температура: ',st: 1: 1) end.