Внимательно рассмотрите блок-схему. сформируйте в словесной форме признак, о котором в ней идёт речь. начало х да запись натурального числа оканчивается на 0? нет "число делится на 10" "число не делится на 10" конец

признак деления числа на 10

 

Так как на востоке растут либо вишня, либо слива, то там не могут расти груша и яблоня, ставим минусы в таблицу. так как по обе стороны от груши должны расти яблоня и слива, то для груши остаётся место только на западе (так как север и юг будут свободны), ставит плюс в в таблице на пересечении груша/запад, а по вертикали и горизонтали все свободное заполняем минусами. "сторона света, в которой растет груша соседняя со стороной света, в которой растет яблоня и соседняя со стороной света, в которой растет слива." нам известно, что слива может расти на востоке, но восток - сторона, не соседняя с западом, значит, на востоке слива расти не может, тогда на востоке растет вишня. ставим плюс в таблице на пересечении восток/вишня, по горизонтали и вертикали от этого плюса все заполняем минусами. из условия 4 исходим из того, что вишня у нас растет не на юге, значит ни груша, ни слива не растут на севере. тогда для сливы остаётся место только на юге, а для яблони, соответственно, на севере. север - яблоня, восток - вишня, юг - слива, запад - груша. ответ: явсг

//pascal var   a: array of integer;   i, n, max, tmpcount: integer; begin   write('введите n = '); read(n);   setlength(a, n);   max : = 0;   for i : = 0 to n-1 do   begin       write('a[', i+1, '] = ');       read(a[i]);       if a[i] > max then       begin           tmpcount : = 0;           max : = a[i];           tmpcount : = tmpcount + 1;       end       else       if a[i] = max then tmpcount : = tmpcount + 1;   end;   writeln('максимальное число ',max,' встречается ',tmpcount,' раз.');   readln; end.