Написать программу, которая вычисляет среднее геометрическое положительных элементов введенного с клавиатуры массива целых чисел

@eronoff · Регистрация: 24.10.2013

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

Написать программу, которая вычисляет среднее геометрическое положительных
элементов введенного с клавиатуры массива целых чисел

@Dj Programmer · 25.12.2013, 20:32

Pascal

Uses crt;
Var a:array [1..10] of integer ;
i,k:byte ;
s:real;
Begin
 
s:=1;
 
for i:=1 to 10 do
 begin
      write ('a[',i,'] = ');
       readln (a[i]);
        if a[i]>0 then
        begin
         s:= s*a[i];
         inc (k);     //k++
         end;
 end;
if k<>0 then
 writeln (#10,'Среднее геометрическое положительных элементов = ',power (s,1/k))
else
 writeln (#10,'Положительных элементов нету');
 end.

@eronoff · 26.01.2014, 19:58 **[ТС]**

Сообщение от Dj Programmer

writeln (#10,'Среднее геометрическое положительных элементов = ',power (s,1/k))

говорит неизвестный идентификатор над power
все ли тут правильно?

@Dj Programmer · 01.02.2014, 18:09

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

неизвестный идентификатор над power

у вас просто нету такой функции в модуле crt , вместо power можно еще

Pascal

1	exp(ln(s)*(1/k))

@ildwine · 01.02.2014, 20:14

Dj Programmer, модуль CRT тут не причем, её просто нет в turbo pascal.

@eronoff 0 / 0 / 0 Регистрация: 24.10.2013 Сообщений: 56
		1
	Написать программу, которая вычисляет среднее геометрическое положительных элементов введенного с клавиатуры массива целых чисел 25.12.2013, 17:50. Показов 1330. Ответов 4 Метки нет (Все метки) Написать программу, которая вычисляет среднее геометрическое положительных элементов введенного с клавиатуры массива целых чисел 0

@eronoff 0 / 0 / 0 Регистрация: 24.10.2013 Сообщений: 56
	26.01.2014, 19:58 [ТС]	3
	Сообщение от Dj Programmer writeln (#10,'Среднее геометрическое положительных элементов = ',power (s,1/k)) говорит неизвестный идентификатор над power все ли тут правильно? 0

@ildwine Супер-модератор 6168 / 2911 / 1299 Регистрация: 04.03.2013 Сообщений: 5,769 Записей в блоге: 1
	01.02.2014, 20:14	5
	Dj Programmer, модуль CRT тут не причем, её просто нет в turbo pascal. 1

Опции темы