KYZYL KYZYL

Program CPascal; uses crt;

const n_max=100; // Максимальное кол-во элементов

type myint=integer;
     intarr=array [1..n_max] of myint; // Опишем наш тип для массива

var a:intarr; // Одномерный массив
    i,sizen:byte;
    result:int64;

// Процедура заполнения одномерного массива псевдослучайными числами
Procedure GenerateVector(var x:intarr; n:byte);
var i:byte;
Begin
for i:=1 to n do X[i]:=Random(51)-25;
end;

// Процедура вывода одномерного массива
Procedure OutPutVector(x:intarr; n:byte; arrname:char);
var i:byte;
Begin
Writeln('Массив '+ArrName+':');
for i:=1 to n do Write(X[i]:4);
Writeln;
end;

// Функция нахождения индекса максимального элемента
Function MaxIndex(x:intarr; n:byte):byte;
var i,index:byte;
Begin
Index:=1;
for i:=1 to n do if (Abs(X[i]) > Abs(X[Index])) then Index:=i;
MaxIndex:=Index;
end;

// Основная программа...
Begin clrscr;
Write('Введите размер массива (1 <= N <= '+n_max+'): '); Readln(SizeN);

GenerateVector(A,SizeN);
OutPutVector(A,SizeN,#65);

// Вычислим произведение...
if MaxIndex(A,SizeN) <> SizeN then
                                 Begin
                                 Result:=1;
                                 for i:=MaxIndex(A,SizeN)+1 to SizeN do Result:=Result*A[i];
                                 Writeln('Ответ: ',Result);
                                 end
                             else Writeln('Максимальный элемент находится в конце массива :(');
Readln;
end.