Предмет: Информатика,
автор: sashunyanichip
Составьте программу, которая вычисляет средний балл по информатике в классе. Количество учеников и четвертные отметки каждого из них введите с клавиатуры.
Ответы
Автор ответа:
0
Program z1; Var a: array [1..100] of integer; n,i:integer; s:real; Begin write('Введите кол-во учеников - '); readln(n); for i:=1 to n do begin write ('Ученик №',i,', Оценка - '); readln(a[i]); end; s:=0; for i:=1 to n do begin s:=s+a[i]; end; s:=s/n; writeln('Средний балл - ',s);End.
Похожие вопросы
Предмет: Геометрия,
автор: 63369692
Предмет: Физика,
автор: Daligantik
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: Аноним