Однамерный массив - Pascal

Формулировка задачи:

В одномерном массиве, состоящем из n вещественных элементов, вычислить произведение элементов массива, расположенных перед максимальным по модулю элементом

Решение задачи: «Однамерный массив»

Листинг программы

Uses
 CRT;
var
i,n,imax:integer;
a:array[1..20] of real;
max,pr:real;
begin
Clrscr;
randomize;
write('Г‚ГўГҐГ¤ГЁГҐГІ ГЄГ®Г«-ГўГ® ГЅГ«ГҐГҐГ*ГІГ®Гў: ');
readln(n);
max:=abs(a[1]);
imax:=1;
for i:=1 to n do
begin
a[i]:=-2+random*5;
write(a[i]:1:2,' ');
if abs(a[i])>max then
begin
max:=abs(a[i]);
imax:=i;
end;
end;
writeln;
writeln('MAX[',imax,']:=',max:1:2);
if imax=1 then
writeln('ГЏГҐГ°ГҐГ¤ MAX Г*ГҐГІ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў!!!')
else
begin
pr:=1;
for i:=1 to imax-1 do
begin
pr:=pr*a[i];
end;
writeln('PR:=',pr:1:2);
end;
readkey
end.

Объяснение кода листинга программы

Объявлены переменные:
- i, n, imax: integer;
- a: array[1..20] of real;
- max, pr: real;
Задается начальное значение переменной n, которая обозначает количество элементов в массиве a.
В цикле for происходит заполнение массива a случайными значениями.
Переменная max инициализируется абсолютным значением первого элемента массива a.
Переменная imax инициализируется значением 1, так как первый элемент массива a считается максимальным.
В цикле for осуществляется сравнение каждого элемента массива a с текущим максимальным значением и обновление значения переменной max и imax при необходимости.
Выводится сообщение с индексом и значением максимального элемента массива a.
Если индекс максимального элемента равен 1, выводится дополнительное сообщение.
Если индекс максимального элемента больше 1, в цикле for осуществляется расчет значения переменной pr как произведения всех элементов массива a от первого до (imax-1)-го.
Выводится значение переменной pr.
Запрашивается нажатие клавиши.