Определите процедуру p(x,y), которая для данного массива x создает массив y по следующему правилу: Yi = Xi - m, где m – среднее арифметическое

@vitas979 · Регистрация: 25.10.2012

Author24 — интернет-сервис помощи студентам

Определите процедуру p(x,y), которая для данного массива x создает массив y по следующему правилу: Yi = Xi - m, где m – среднее арифметическое элементов массива x.

@Puporev · 29.10.2012, 18:49

Pascal

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure p(x:mas; var y:mas; m:real;n:integer);
var i:integer;
begin
writeln('Массив рзностей элементов масива Х и их ср. арифметического:');
for i:=1 to n do
 begin
  y[i]:=x[i]-m;
  write(y[i]:8:2);
 end;
end;
 
var x,y:mas;
    n,i:integer;
    m:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
m:=0;
for i:=1 to n do
 begin
  x[i]:=20*random;
  write(x[i]:8:2);
  m:=m+x[i];
 end;
m:=m/n;
writeln;
writeln('Среднее арифметическое=',m:0:2);
p(x,y,m,n);
readln
end.

@vitas979 0 / 0 / 0 Регистрация: 25.10.2012 Сообщений: 14
		1
	Определите процедуру p(x,y), которая для данного массива x создает массив y по следующему правилу: Yi = Xi - m, где m – среднее арифметическое 29.10.2012, 17:08. Показов 1931. Ответов 1 Метки нет (Все метки) Определите процедуру p(x,y), которая для данного массива x создает массив y по следующему правилу: Yi = Xi - m, где m – среднее арифметическое элементов массива x. 0

	29.10.2012, 18:49

Определите процедуру p(x,y), которая для данного массива x создает массив y по следующему правилу: Yi = Xi - m, где m – среднее арифметическое

Решение