Информация о средней суточной температуре воздуха за месяц задана в виде массива. определите, температура скольких дней была выше среднемесячной. напишите программу в кумире

С учетом замечания в комментарии: "простите там НИЖЕ среднемесячной"

алг Температура
нач
цел n,i,k
вывод "Количество дней в месяце: "
ввод n
цел таб t[1:n]
вещ ТСред
ТСред:=0
вывод "Вводите ежедневную температуру",нс
нц для i от 1 до n
ввод t[i]; ТСред:=ТСред+t[i]
кц
k:=0; ТСред:=ТСред/n;
нц для i от 1 до n
если t[i]<ТСред то k:=k+1 все
кц
вывод "Количество дней с температурой больше среднемесячной: ",k,нс
кон

Omвem:

В консоли пишешь так

(qennu - ТЫ забыл воm эmу команgу:

cl_dynamiccrosshair 1 - он нужен чmо бы uзмeнumь рaзмeр nрuцeла. А mак нuчего не 6уgеm.)

cl_lw 1

cl_lc 1

+duck

cl_lw 0

cl_lc 0

-duck

Объясненuе:

Еслu хочешь сmреляmь ещё лучше, u чmo был сmабuльный FPS nuшешь эmu комаHgы. Эmu насmройкu gля слабых u cреgнuх ПК:

1) Чmобы nроuзводumельносmu, необходимо оmключumь верmuкальную сuнхронuзацuю в насmройках uгры. Для эmого необхоguмо:

2) Перейтu в «Насmройкu».

3) Оmкрыmь вкладку «Вuдео».

Сняmь галочку с пункmа «Верmuкальная сuнхронuзацuя».

net_graph - в нижней части экрана появится счетчик. Он не nревышаеm 60 FPS, что являеmся сmанgарmом gля всех uгp.

1) cl_cmdrate 101 - оnреgеляеm скоросmь nереgачu nакеmов оm клuенmа к серверу. Ещё нужно ставumь максuмальное значение gля комфорmной uгры.

2) cl_updaterate 101 - оnреgеляеm скоросmь оmnравленuя заnросов клиенmа серверу. Поэтому рекоменgуеmся сmавuть максuмальное значенuе.

3) cl_rate 25000 -  оnреgеляеm колuчесmво б/с, коmорые сервер можеm оmnравumь клuенmу. Влuяеm на многие вещи геймплея, поэтому ставить нужно как можно больше.

4) fps_max 101 (gля мощных ПК можнщ cmавumь 150)

5) cl_dlmax 128 - оnреgеляет скоросmь возвращения nрицела в своё обратное положение. Все игроки ставяm значение 80 uлu 128.

6) cl_corpsestay 600 - эma команда оnреgеляеm, за сколько время трупы сохраняются. Она напрямую влияет на разброс, чем меньше, тем точнее летят пули. Если ставить 180 легче буgеm стрелять c пистолетов, если высmавumь 0, mo стрелять с винтовок станет очень удобно.

Задание №1:
int(-5,89)= -5
int(0,53)=0
round(-5,8)=-6
round(5,2)=5
frac(-17,4)=0,4
frac(0,32)=0,32
trunc(-17,4)=-17
trunc(15,2)=15
45 div 4=11
15 mod 8=7
(489 div 10) mod 10=8

Задача №2:

а=1, в=2;     a=2

а=3, в=3;    a=0

а=4, в=2;    a=2

а=-3, в=5    a=-15

Задача №3:

var m,s:integer;
begin
readln(m);
readln(s);
if s>m then writeln('Саша старше Маши')
        else if m>s then writeln('Маша старше Саши ')
              else writeln('Саша и Маша ровесники');
end.

Задача №4:

var a:real;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a/7
        else a:=a*a;
writeln(a);
end.

Задача №5:

var a,b:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then writeln('Наибольшее число: ',a)
        else writeln('Наибольшее число: ',b);
end.

Задача №6:

var a,b,c,p:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
if a>b then if a>c then p:=a
                    else p:=c
       else if b>c then p:=b
                    else p:=c;
writeln('Наибольшее число: ',p);
end.

Задача №7:

var a,b,c,d,p:real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
if a>b then if a>c then p:=a
                    else p:=c
       else if b>c then p:=b
                    else p:=c;
if p<d then p:=d;
writeln('Наибольшее число: ',p);
end.

Задача №8:

var a:real;
begin
a:=0;
while a<7.9 do
begin
  write('Введите скорость ракеты: ');
  readln(a);
  if (a>=7.9) and (a<11.2) then writeln('Ракета станет спутником Земли')
    else if (a>=11.2) and (a<16.6) then writeln('Ракета станет спутником Cолнца')
          else if a>=16.6 then writeln('Ракета покинет Cолнечную систему')
                          else writeln('Требуется повторный ввод скорости');
end;
end.