В данной ситуации целесообразно прибегнуть к моделированию. Почему? 1.Все ответы верны 2.Исследуемый объект средних размеров 3.исследование объекта очень дешево 4. исследуемый бъект очень мал
Шупашкар Чăваш Республикин тĕп хули. Шупашкарта пĕтĕмпе 460,2 пин çын (2002 çулхи халăх çыравĕ тăрăх) пурăнать. Шупашкар Чулхулапа Хусан хулисем хушшинче, Атăл юханшывăн сылтăм çыранĕнче вырнаçнă. Шупашкар виçĕ района пайланать: Калинин районĕ, Ленин районĕ, Мускав районĕ тата Атăл лешьенчи çĕр тытăмĕ. Шупашкартан инçех мар хула-спутникĕ Çĕнĕ Шупашкар вырнаçнă. Унта пĕтĕмпе 125 пин çын пурăнать. Шупашкар кунĕ: çурла уйăхĕн виççĕмĕш вырсарникунĕ. Шупашкар хулинчен аякрах мар Атăл тăрăх кайсан Çĕнĕ Шупашкар, Сĕнтĕрвăрри, Куславкка хулисем вырнаçнă.
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.