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