Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите составить программу в Паскале

Ответ оставил Гость

Какую? Любую?

Например: Вычислить средний балл учеников вашего класса по физике.

VAR i, ball, N, S : Integer;
BEGIN
WriteLn(Введите количество учеников); ReadLn (N);
S:=0; for i:=1 to N do begin
WriteLn(Введите балл ученика);
ReadLn (ball);
S:=S+ball; end;
WriteLn(Средний балл =,S/N :8:3);
ReadLn ;
END.