Cpascal #7

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание:
Найти произведение отрицательных чисел в массиве X[n].

Выполнил: ст.гр. МЛ-212, Фомин Александр
г.Новосибирск, 2014г.
}
Program CyberPascal; uses crt;

const n=10;

type vector=array[1..n] of real;

var x:vector;
     product:real;
    i:byte;

Procedure xProduct(x:vector; var product:real; n:byte);
var i:byte;
Begin
Product:=1;
for i:=1 to n do if (X[i] < 0) then Product:=Product*X[i];
end;

Begin clrscr;
Randomize;
Write('--------------------------------------------------------------------------------');
Writeln(' Исходный массив:');
for i:=1 to n do
    Begin
    X[i]:=Random(101)-50.;
    Write(X[i]:7:2);
    end;
Writeln;

xProduct(X,Product,N);
Write('--------------------------------------------------------------------------------');
Writeln(' Ответ: ',Product:7:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.