Регистрация
dfggdsddfdddf
09.08.2021 17:01
Информатика
Есть ответ 👍

Составь ребусы по теме интернет не менее 5 слов

105
431
Посмотреть ответы 1

Ответы на вопрос:

Тамик03
Тамик03
4,6(89 оценок)
Program p1; var n,a,i,max,fl: integer; begin writeln('введите кол-во участников> > '); readln(n); max: =0; fl: =0; for i: =1 to n do   begin   writeln('введите кол-во правильных ответов, данных участником ',i);     readln(a);   if (a > max) then max: =a;   if a=0 then fl: =1;   end; if fl=1 then writeln('yes') else writeln('no'); writeln('победитель набрал ',max,' '); end. пример: введите кол-во участников> > 5введите кол-во правильных ответов, данных участником 1 15введите кол-во правильных ответов, данных участником 2 18введите кол-во правильных ответов, данных участником 3 0введите кол-во правильных ответов, данных участником 4 8введите кол-во правильных ответов, данных участником 5 10yes победитель набрал 18

Популярно: Информатика