Дан массив А(20). Найти разницу между каждым элементом массива и средним арифметическим

@Spongersd93 · Регистрация: 22.10.2012

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

Дан массив А(20). Найти разницу между каждым элементом массива и средним арифметическим.

@Puporev · 29.10.2012, 14:25

Pascal

uses crt;
const n=20;
var a:array[1..n] of real;
    i:integer;
    s:real;
begin
clrscr;
randomize;
writeln('Исходный массив:');
s:=0;
for i:=1 to n do
 begin
  a[i]:=20*random;
  write(a[i]:8:2);
  s:=s+a[i];
 end;
s:=s/n;
writeln;
writeln('Среднее арифметическое=',s:0:2);
writeln('Разница между элементами иср. арифметическим:');
for i:=1 to n do
 begin
  a[i]:=a[i]-s;
  write(a[i]:8:2);
 end;
readln
end.

@Spongersd93 0 / 0 / 1 Регистрация: 22.10.2012 Сообщений: 7
		1
	Дан массив А(20). Найти разницу между каждым элементом массива и средним арифметическим 29.10.2012, 13:38. Показов 1787. Ответов 1 Метки нет (Все метки) Дан массив А(20). Найти разницу между каждым элементом массива и средним арифметическим. 0

Опции темы

Дан массив А(20). Найти разницу между каждым элементом массива и средним арифметическим

Решение