НАЙТИ средний бал за контрольную работу если кол-во учеников выполнявших работу n. Также найти колличество учеников которые получили оченку 4 или 5,а также оченку 2 составить программу в гамбас(не обязательно программу если мо...
НАЙТИ средний бал за контрольную работу если кол-во учеников выполнявших работу n. Также найти колличество учеников которые получили оченку 4 или 5,а также оченку 2 составить программу в гамбас(не обязательно программу если можно просто решение объяните)
Ответ(ы) на вопрос:
Гость
не наю че за гамбас пишу на паскале var a:array[1..100] of integer; i,n,k5,k4,k2:integer; s:real; Begin read(n); for i := 1 to n do begin writeln('Ввведите оценку учиника ',i); readln(a[i]); s:=s+a[i]; if a[i]=5 then k5:=k5+1; if a[i]=4 then k4:=k4+1; if a[i]=2 then k2:=k2+1; end; writeln(s/n,k5,k4,k2); End.
Не нашли ответ?
Похожие вопросы