неудовлетворительных оценок
Ответ или решение
program zz1;
var n,i,k,a,s:integer; // задаем переменные целого типа
begin
write(‘введите количество учеников ‘);
read(n); // вводим количество учеников
for i:=1 to n do
begin
writeln(‘введите оценку ‘,i,’-го ученика ‘);
read(a); // вводим оценку ученика
s:=s + a; // получаем сумму оценок
if (a=1)or(a=2) then k:=k+1; // получаем количество неудовлетворительных оценок
end;
writeln(‘количество неудовлетворительных оценок = ‘,k); // выводим ответ
writeln(‘среднее арифметическое оценок = ‘, s/n);
end.
На нашем сайте представлено множество школьных и студенческих вопросов и ответов на них. Также, вы можете задать свой вопрос или помочь другим учащимся, ответив на существующие вопросы. Для этого пишите ответы в комментариях.
Для того, чтобы найти ответ на ваш вопрос, а он наверняка есть в нашей базе, пользуйтесь формой поиска по сайту!