Question

Напишите программу для решения следующей задачи. На контрольной работе по алгебре ученикам 9 класса было предложено 10 примеров. Неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. Сколько неудовлетворительных оценок было получено учениками? Если хотя бы один из учеников правильно решил все задачи, выведите YES, иначе выведите NO. Программа получает на вход количество учеников в классе N (1 ≤ N ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров.(Pascal)

Answer 1

Var a,b,c,d,e:integer;
begin
d:=1;
e:=0;
writeln('введите количество учеников');
readln(a);
for b:=1 to a do begin
writeln('введите количество правильных ответов для ',d,' ученика' );
readln(c);
while (c>10) or (c<0) do begin
writeln('вы ввели неверное число, попробуйте снова');
readln(c);
end;
if c = 10 then e:=e+1;
d:=d+1;
end;
if (e>=1) then writeln('yes ')
else writeln('no');
end. 

Answer 2

Я попробую написать программу для решения этой задачи на языке Pascal. Вот мой код:

program ControlWork;
var
  N, i, k, bad, good: integer;
  all: boolean;
begin
  readln(N); // вводим количество учеников в классе
  bad := 0; // счетчик неудовлетворительных оценок
  all := false; // флаг, показывающий, что хотя бы один ученик решил все задачи
  for i := 1 to N do // цикл по ученикам
  begin
    readln(k); // вводим количество правильно решенных примеров
    if k < 5 then // если меньше половины, то оценка неудовлетворительная
      bad := bad + 1; // увеличиваем счетчик неудовлетворительных оценок
    if k = 10 then // если все задачи решены правильно
      all := true; // устанавливаем флаг в истину
  end;
  writeln(bad); // выводим количество неудовлетворительных оценок
  if all then // если флаг истинен
    writeln('YES') // выводим YES
  else // иначе
    writeln('NO'); // выводим NO
end.

Надеюсь, это поможет вам.