Через while:

var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
while i < 10 do
begin
readln(x);
s := s + x;
inc(i);
end;
sr := s / i;
writeln(sr);
end.

Через repeat:

var
s, x, i: integer;
sr: real;
begin
s:=0; i:=0;
repeat
readln(x);
s := s + x;
inc(i);
until i = 10;
sr := s / i;
writeln(sr);
end.

Через For:

var
s, x, i: integer;
sr: real;
begin
s:=0;
for i:=1 to 10 do
begin
readln(x);
s := s + x;
end;
sr := s / i;
writeln(sr);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

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

Николай Франов

В классе 20 учеников, из них получили (за четверть или за контрольную - не важно) :

"5" - 3

"4" - 7

"3" - 8

"2" - 1

н/а - 1

(3+7+8)/20*100=90%

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

Качество - это отношение количества учеников, успевающих на 4 и 5 к количеству успевающих учеников. В нашем примере

(3+7)/18*100=55,6%

0 0

4 года назад