Предмет: Информатика,
автор: knopkawolf
Составить программу которая определяет средний балл учащихся группы.
Программа должна спрашивать:
₋ сколько в группе человек,
₋ какой средний балл у каждого учащегося.
Пожалуйста составьте правильно, очень надо, заранее спасибо.
Ответы
Автор ответа:
0
Program p1;
var sr,sr1:real;
p,i:integer;
begin
Write('Введите число учащихся: ');
Readln(p);
sr:=0;
sr1:=0;
for i:=1 to p do
begin
Write('Введите средний балл ученика: ');
readln(sr1);
sr:=sr+sr1;
end;
Writeln('Средний балл группы равен: ',sr/p);
end.
var sr,sr1:real;
p,i:integer;
begin
Write('Введите число учащихся: ');
Readln(p);
sr:=0;
sr1:=0;
for i:=1 to p do
begin
Write('Введите средний балл ученика: ');
readln(sr1);
sr:=sr+sr1;
end;
Writeln('Средний балл группы равен: ',sr/p);
end.
Интересные вопросы
Предмет: Алгебра,
автор: MUUUDO
Предмет: Английский язык,
автор: Miа16
Предмет: География,
автор: nepridumalima093
Предмет: История,
автор: 190397
Предмет: Математика,
автор: soloto81