1) Цикл от 2 включительно, до 20 включительно.
2) Видим первое условие: i>=3 и i<=8 соответственно, когда циклическая переменная будет равна 3 (i=3) будет выполнено условие.
А также при i=9 условие не будет выполняться.
3) Видим второй блок условий. Они подразумевают, что квадрат переменной не должен быть выше границы в 20 единиц. Берем на заметку, что квадрат 5 равен 25, что является подходящим под условие и принудительно завершит цикл.
4) Итак, при первом цикле переменная равна 2. Ни одно из условий не выполниться. При i=3 выполниться первое условие и сумма увеличиться на остаток от деления i на 2, т.е. на 1. Это условие будет выполняться до 5, позже цикл прервёт второе условие. Значит необходимо посчитать остатки от деления i (3..5) на 2.
Ответ: 2
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)
<span>end.</span>
Компьютер может быть и друг, и враг. Он может помочь, а может навредить. Компьютер по большей части опасен, по моему мнению, чем полезен. Ведь его минусов гораздо больше, чем плюсов. Минусы: Портиться зрения, затягивает, присутствие нецензурной лексики. К сожалению плюсов будет гораздо меньше: научные сайты, ход всех новостей и известий, нужные гаджеты. В наше время и уже вданный момент компьютер - это часть нас и мы становимся зависимы от него. Не будь зависимым человеком, не стирай грань игры и жизни. Иди гуляй.
128 кб. экран VGA (640X480? 256)