Вообщем, кто шарит, произошла такая швабра. На ноуте IdeaPad L340-15API(Леново) переустановил биос, - id2007470420210425 от умный321 25.04.2021 03:00

Question

Информатика: Вообщем, кто шарит, произошла такая швабра. На ноуте IdeaPad L340-15API(Леново) переустановил биос, после этого в играх, да и вообще везде все начало лагать, я уже пробовал ставить в настройках производительный режим, переустанавливал игры-не . Подскажите . От ). Заранее

умный321 · Accepted Answer

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

MOGZ ответил