Паскаль,задача! Нужна помощь! Опции

[Lamoz]

Паскаль,задача!
Помогите решить задачу:
Найти корень из произведения отрицательных чисел в массиве.
Заранее благодарен)

[@nto$ka]

1. Корень какой степени?
2. Если корень квадратный, то что делать при нечетном числе сомножителей?


Да и что собственно у тебя не получается?

[Федосеев Павел]

Да ничего у него не получается. Ему некогда учиться - занят слишком.

program tak;
const
  Nmax=10;
type
  TArray=array[1..Nmax] of Real;
procedure InputArray(var afA: TArray);
var
  i: Integer;
begin
  WriteLn('Input:');
  for i:=1 to Nmax do
  begin
    Write('A[', i, ']= ');
    ReadLn(afA[i]);
  end;
end;

var
  afA: TArray;
  fAbsSqrt: Real;
  bIsReal: BOOLEAN;
  fMult: Real;
  i: Integer;
begin
  InputArray(afA);

  fMult:=1;
  for i:=1 to Nmax do
    if afA[i]<0 then
      fMult:=fMult*afA[i];

  bIsReal:=fMult>0;
  fAbsSqrt:=Sqrt(Abs(fMult));

  if bIsReal then
    WriteLn('Result: ', fAbsSqrt)
  else
    Write('Result: i*', fAbsSqrt);

end.

[@nto$ka]

Да ничего у него не получается. Ему некогда учиться - занят слишком.

Зачем тогда ты тратишь время?

[Федосеев Павел]

Здесь решение задачки вместе с проверкой - делов на пять минут.
Сегодня это для меня способ раскачки для начала выполнения собственной работы - надо для поднятия духа выполнить (условно) нужное, но не сложное краткосрочное дело.