Известны сведения о температуре за 10 дней (от -20 до 20). найти: найти среднюю температуру; количество дней, когда были заморозки; самую высокую температуру. решить на паскале.

141

245

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

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

avokebest

Информатика

4,6(12 оценок)

Const n = 10; var temp: array [0..n-1] of shortint; max, min, i: byte; sum : integer; begin randomize; writeln ('температуры ', n, ' дней: '); for i: =0 to n-1 do begin temp[i]: =random (41)-20; write (temp[i], '; '); if temp[i]> temp[max] then max: =i; if temp[i]< 0 then inc (min); inc (sum, temp[i]); end; writeln (); writeln ('средняя температура: ', sum/n); writeln ('макс. температура: ', temp[max]); write ('кол-во дней с отриц. температурой: ', min); end.