Найти среднеквадратичное элементов массива

@Thankuverymuch · Регистрация: 06.02.2012

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

1. Ввести массив a[l], а[2], ..., а[n] вещественного типа, найти среднеквадратичное его элементов s= (a[l]*a[l] + a[2]*a[2] + ... + a[n] *a[n])/n и вывести результат на экран.

@Фаер · 06.02.2012, 19:14

No 1

Pascal

Program Pro;
Var A:array[1..100] of real; s,sum:real; n,i:integer;
Begin
Write('Vvedi razmer:'); Readln(n);
Writeln('Vvedi elementi:');
For i:=1 to n do
 Begin
  Readln(A[i]);
  sum:=sum+A[i]*A[i];
 End;
s:=sum/n;
Write('Sred kvad:',s:3:2);
Readln;
End.

@Севак · 06.02.2012, 19:19

Сообщение от Thankuverymuch

1. Ввести массив a[l], а[2], ..., а[n] веществен¬ного типа, найти среднеквадратичное его эле¬ментов s= (a[l]*a[l] + a[2]*a[2] + ... + a[n] *a[n])/n и вывести результат на экран.

Pascal

uses crt;
var
a: array[1..100] of integer;
i,s,n: integer;
begin
write('Введите кол-во элементов массива, не больше 100: ');
repeat
read(n);
until (n>0) and (n<=100);
for i:=1 to n do begin
write('a[',i,']=');
read(a[i]);
s:=s+sqr(a[i]);
end;
writeln('Среднеквадратичное элементов массива: ',s/n:0:3);
end.

@Thankuverymuch 0 / 0 / 0 Регистрация: 06.02.2012 Сообщений: 13
		1
	Найти среднеквадратичное элементов массива 06.02.2012, 18:58. Показов 3138. Ответов 2 Метки нет (Все метки) 1. Ввести массив a[l], а[2], ..., а[n] вещественного типа, найти среднеквадратичное его элементов s= (a[l]a[l] + a[2]a[2] + ... + a[n] *a[n])/n и вывести результат на экран. 0

	06.02.2012, 19:19

Найти среднеквадратичное элементов массива

Решение