Предмет: Информатика, автор: sashunyanichip

Составьте программу, которая вычисляет средний балл по информатике в классе. Количество учеников и четвертные отметки каждого из них введите с клавиатуры.

Ответы

Автор ответа: АndyWhite
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.
Похожие вопросы
Предмет: Қазақ тiлi, автор: Аноним
Предмет: Математика, автор: Аноним