Задание:
НАЙТИ средний бал за контрольную работу если кол-во учеников выполнявших работу 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.
Знаете другой ответ?