ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп
var N, i, a, m:integer;
c:boolean;
begin
writeln('Введите количество участников');
readln(N);
if ((N < 1) or (N >50))then begin
writeln('Ошибка');
exit;
end;
m := 0;
c := false;
for i:=1 to N do begin
writeln('На сколько вопросов правильно ответил ',i,' участник:');
readln(a);
if ((a < 0) or (a > 20)) then begin
writeln('Ошибка');
exit;
end;
if (a = 0) then
c := true;
if (a > m) then
m:= a;
end;
writeln('Количество вопросов, на которые ответил победитель правильно: ', m);
if (c = false) then
writeln('Есть ли участники, которые не ответили ни на один вопрос правильно: NO')
else write('Есть ли участники, которые не ответили ни на один вопрос правильно: YES');
end.
ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп