Програма на паскале для вычесления годовой оценки срочно надо помогите побольше решений
Програма на паскале для вычесления годовой оценки срочно надо помогите побольше решений
Гость
Ответ(ы) на вопрос:
ГостьProgram a; var a,b,c,d,e:integer; {a,b,c,d - оценки за 1-4 четверти, e - оценка за год} Begin writeln('Введите оценки за 1-4 четверти'); readln(a,b,c,d); e:=round((a+b+c+d)/4); writeln('Годовая оценка = ',e); end.
ГостьОписание прямо-таки минималистично. Буду считать, что 4 четверти, а оценка - есть среднее арифметическое, тогда:
var oc,soc,n,i:integer;
begin
Readln(n); //узнаём кол-во "четвертей"
For i:=1 to n do
Begin
Readln(oc);
Soc:=soc+oc;
End;
Writeln(round(soc/n));
end.
Намудрил, конечно, но первое, что пришло в голову.
Не нашли ответ?
Похожие вопросы