• 26 November 2013
    • Химия
    • Автор: Nik435

    Решить задачу в pascal

    Королева арифметики решила озеленить свою столицу и заодно сосчитать жителей. Для этого она приказала всем посадить вокруг каждого дома столько деревьев, сколько в этом доме живёт членов семей, а также их слуг. Определить номер самого населённого дома (количество деревьев, растущих возле каждого дома записано в виде последовательности, заканчивающейся числом ноль).


    • 26 November 2013
    • Ответ оставил: NightDeer

    Var a,b,n,k:integer;
    begin
    a:=0; read(n);
    for k :=1 to n do begin
    while b<>0 do begin
    read(b); if a<b then a:=b;
    end; end; end.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы

Ответ на вопрос Решить задачу в pascal Королева арифметики решила озеленить свою столицу и заодно сосчитать жителей. Для этого она приказала всем посадить вокруг каждого дома столько... - Вопросов.Нет

404