1. напишите программу, которая запрашивает температуру воздуха в течение недели и запоминает введённые значения в массиве temper, затем вычисляет среднее значение температуры.

Var temper: array[1..7] of integer; i,s: integer; sa: real; begin writeln('введите 7 значений температуры воздуха:   '); s: =0; for i: =1 to 7 do begin readln(m[i]); s: =s+m[i]; end; sa: =s/7; writeln(sa); readln; end.

Здесь есть 2 способа проверить, либо из восьмеричную систему счисления перевести в двоичную, либо из двоичную в восьмеричную, и тогда легче смотреть равны ли.  и так первый способ - это перевод из восьмеричную в двоичную: 2 - 010, 3 -  011 и 5 - 101 = 010010101011011 но первое число 0 не входи поэтому убираем и получаем 10010101011011. второй способ - это перевод из двоичную в восьмеричную: начинаем с конца - 011 это число 3(восьмеричная), 101 - 5 и 010 - 2, но учитывайте если остались числа 10 то в начале вписываем число 0 получим 010, в итоге 22533. 

Стул                                                         стул стул                                                                                                 стул                                         стул