Вопрос по информатике:
Дана таблица из 15 целых чисел. Найти среднее значение квадратов этих чисел. Пожалуйста помогите решить(((
- 05.12.2017 06:18
- Информатика
- remove_red_eye 1532
- thumb_up 37
Ответы и объяснения 1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 program sort; type a=array[1..1000]of integer; var m:a; i,n:integer; procedure sortm(var m:a;n:integer);//сортировка массива var i,j,buf:integer; begin for i:=1 to n do for j:=i+1 to n do if(m[i]>m[j]) then begin buf:=m[j]; m[j]:=m[i]; m[i]:=buf; end; end; begin randomize; read(n); for i:=1 to n do m[i]:=random(999); sortm(m,n); for i:=1 to n do write(' ',m[i]); end.
- 06.12.2017 07:22
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.