массивы паскаль

Ответ от Плутарх из Херонеи[гуру]
program PROG5_2;
const
N = 10;
var
a : array [1..N] of integer;
i, i1, i2 : integer;
imin, imax : integer;
d, c, s : integer;
begin
{Заполнение массива а случайными числами}
randomize;
for i:=1 to N do
a[i]:=random(100);
{Вывод массива а на экран}
writeln('Исходный массив: ');
for i:=1 to N do
write(a[i]:6);
writeln;
{Нахождение индексов наибольшего и наименьшего эемаентов
массива}
imin:=1; {Индекс наименьшего элемента}
imax:=1; {Индекс наибольшего элемента}
for i:=2 to N do begin
if a[i] < a[imin] then
imin :=i;
if a[i] > a[imax] then
imax := i;
end;
{Вывод ответа}
writeln('Наименьший элемент a[',imin,']=',a[imin]);
writeln('Наибольший элемент a[',imax,']=',a[imax]);
{Подсчет количества и суммы чисел между минимальным и максимальным значениями}
c:=0; {Количество}
s:=0; {Сумма}
if imin > imax then begin
i1:=imax;
i2:=imin;
end else begin
i1:=imin;
i2:=imax;
end;
write('Cумма начиная с a[',i1,'] = ',a[i1],' до a[',i2,']=',a[i2],': ');
for i :=i1 to i2 do begin
inc(c);
inc(s,a[i]);
write(a[i],' + ');
end;
writeln(' = ',s);
writeln('Количество: ',c);

end.