Вычислить среднее геометрическое элементов векторов T (k), кратных трем

05.12.2011, 21:23. **Показов** 1306. **Ответов** 1

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

Уважаемые посететители форума, необходимв ваша помощь. Pascal

Вычислить среднее геометрическое элементов векторов T(k), кратных трем.

@Nikitos_$mile:) · 10.12.2011, 15:51

Pascal

var t:array[1..999999] of integer;
    k,i,s:integer;
    srgeom:real;
begin
 write('Введите количество элементов: ');
 read(k);
 s:=1;
 write('Исходный массив: ');
 for i:=1 to k do
               read(t[i]);
 for i:=1 to k do
 If t[i] mod 3=0 then s:=s*t[i];
 srgeom:=sqrt(s);
 write('Среднее геометрическое этих чисел равно: ',srgeom);
end.

Staples
		1
	Вычислить среднее геометрическое элементов векторов T (k), кратных трем 05.12.2011, 21:23. Показов 1306. Ответов 1 Метки нет (Все метки) Уважаемые посететители форума, необходимв ваша помощь. Pascal Вычислить среднее геометрическое элементов векторов T(k), кратных трем.

	10.12.2011, 15:51

Вычислить среднее геометрическое элементов векторов T (k), кратных трем

Решение