Регистрация
anishenkovayana
23.04.2023 07:58
Информатика
Есть ответ 👍

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

139
359
Посмотреть ответы 2

Ответы на вопрос:

leonid90
leonid90
4,6(96 оценок)
Var a: array[1..100] of real; i,k,n: integer; sr,pr,s: real; begin write('введите кол-во учеников в классе: '); readln(n); writeln('введите учеников: '); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: =s+a[i]; sr: =s/n; pr: =sr/10; for i: =1 to n do if (a[i]< sr+pr) and (a[i]> sr-pr) then inc(k); writeln('кол-во , отклоняющиеся от срзнач. не более чем на 10%: ',k); end.
kirikdementev
kirikdementev
4,8(10 оценок)
Ранці цього дня я вирушив у путь. щоки почервоніли на морозі. осемнадцать вершників стоїть переді мною. баярин мав при собі 300 холопів. його предок був кріпосним селянином. у музеї важить кольчуга

Популярно: Информатика