Информатика, опубликовано 2018-08-22 21:57:17 by Гость
N человек сдали экзамен. Вводя в цикле их оценки, определить количество повышенных оценок (4 и 5) Pascal
Ответ оставил Гость
Var n,m,k,i:integer;
begin
write(n = ); readln(n);
k:=0;
for i:=1 to n do
begin
write(i,-я оценка = ); readln(m);
if m>=4 then k:=k+1;
end;
writeln(k = ,k);
end.
Пример:
n = 5
1-я оценка = 3
2-я оценка = 4
3-я оценка = 5
4-я оценка = 2
5-я оценка = 4
k = 3
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на