Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,<span>' element');
(Источник:</span><span>http://www.programmersforum.ru)
</span>
Всего в парке 420 деревьев 65 сосен
65-14=51елей, значит лиственниц тоже 51
51+12=,63 кипариса
420-65-51-51-66=190
512*32*64=1048576 символов
1048576*16=16 777 216 бит (информационный объём файла)
1,44*1024*1024*8=12 079 595, 52 бит объём дискеты в битах
16 777 216/12 079 595,52=1,38 - нужно две дискеты
A := 26;
b := 6;
b := a mod b + 4 = 26 mod 6 + 4 = 2 + 4 = 6;
c := a mod b + 1 = 26 mod 6 + 1 = 2 + 1 = 3;
Ответ: 3.