Чётные:6,12,18,452,398
Нечётные числа:771,11,5,29,9,13,99,53
Однозначные числа:6,5,9,
Двузначные числа:12,18,11,29,13,99,53
Трёхзначные числа:771,452,398
Четные однозначные числа:6,
Четные двузначные числа:12,18,
<em><u>С учетом замечания в комментарии: "</u></em><span><em><u>простите там НИЖЕ среднемесячной"</u></em></span><em><u /></em>
алг Температура
нач
цел 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,нс
кон
var
F, x, y: real;
begin
readln(x, y);
if (x >= 0) and (y > 0) then
F := sqrt(x / y) * (5 * y * y - x)
else
F := (3.3 * x - y) / (7 * x * y);
writeln('F=', F);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65