Дана таблица из 15 целых чисел. Найти среднее значение квадратов этих чисел. Пожалуйста помогите решить(((
123456789101112131415161718192021222324252627282930program sort;type a=array[1..1000]of integer;varm:a;i,n:integer;procedure sortm(var m:a;n:integer);//сортировка массиваvari,j,buf:integer;beginfor i:=1 to ndofor j:=i+1 to n doif(m[i]>m[j])thenbeginbuf:=m[j];m[j]:=m[i];m[i]:=buf;end;end;beginrandomize;read(n);for i:=1 to n dom[i]:=random(999);sortm(m,n);for i:=1 to ndowrite( ,m[i]);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
