Так как нужны только 3 и 4 элементы, полностью массив можно не рассматривать, достаточно рассмотреть элементы 3 и 4.
Массив заполняется следующим образом:
Если индекс элемента четный, то элементу присваивается i/2.
Если индекс элемента не четный, то элементу присваивается (i+1)/2
У элемента a[3] индекс равен 3, нечетный, значит ему будет присвоено (3+1)/2 = 2
У элемента a[4] индекс равен 4, четный, значит ему будет присвоено 4/2 = 2
Получается, что элемент a[3]=2 и a[4]=2, среднее арифметическое 2.
Вот решение в пару строчек:
program with_for;
var i, x: integer;
begin
for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;
writeln(x);
end.
<em>VAR</em>
<em> i, kol: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> For i := 1 to 20 do Read(a[i]);</em>
<em />
<em> For i := 1 to 20 do</em>
<em> If (a[i] < -20) then Inc(kol);</em>
<em />
<em> Write(kol);</em>
<em>END.</em>
6, потому что мышь не являеться нужным для работы ПК
Пусть размеры прямоугольного отверстия а - ширина, h - высота
Сначала среди размеров X, Y, Z - ищем самое большое: RazMax.
Если RazMax <a, (пусть это будет Z), то
среди Х и Y подбираем такое, чтобы оно меньше или равно h
Eсли RazMax > a, то среди X и Y ищем НАИБОЛЬШЕЕ.
Если это НАИБОЛЬШЕЕ меньше ширины, то проверяем, чтобы среди оставшихся измерений хотя бы одно было меньше или равно h.
Если все это не годится, то кирпич не пролезет в это отверстие...
