Напишите программу для решения следующей . на контрольной - вопрос №5299842 от madina1920 30.08.2022 21:14

Question

Информатика: Напишите программу для решения следующей . на контрольной работе по ученикам 9 класса было предложено 10 примеров. неудовлетворительная оценка выставляется, если правильно решено менее половины примеров. сколько неудовлетворительных оценок было получено учениками? если хотя бы один из учеников правильно решил все , выведите yes, иначе выведите no. программа получает на вход количество учеников в классе n (1 ≤ n ≤ 30), затем для каждого ученика вводится количество правильно решённых примеров. (pascal)

madina1920 · Answer

Var n,a,i,k:integer;s:string;begin  s:= No ; k:=0;  readln(n);  for i:=1 to n do begin    readln(a);    if a 5 then k:=k+1;    if a=10 then s:= Yes ;  end;  writeln(k);  writeln(s);end....