Program next; var a,b,c,i,g,o:integer; begin g:=0; b:= 0; writeln('Сколько учахщихся?');readln(a); for i=0 to a do writeln('Средний бал у ',i,' ученика:');readln(c); g:= g+c; end; o:= g/a; writeln('Средний балл учащихся',o); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку