Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var x,s,n: integer;
begin
repeat
read(x);
if x< 0 then n: = n +1;
if x > 0 then s: =s+x;
until x=0;
writeln(n,s);
end.
лексикогрфический порядок: сравниваются первые буквы, если они однаковы, то вторые, третьи и т.д.
баскетбол
гимнастика
гитара
канал
посетить
почерк
расчёт
расчётливый
спортсмен
справа
справедливый
чехол
шоссе
шофёр
Популярные вопросы