Найти сумму элементов массива, которые расположены между максимальным элементом и элементом, стоящим на 7 месте — Pascal(Паскаль)

var a:array[1..40] of integer;
    n,i,imx,x:integer;
begin
randomize;
repeat
write('Введите размер массива от 7 до 40 n=');
readln(n);
until n in [7..40];
writeln('Исходный массив');
imx:=1;
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:4);
  if a[i]>a[imx] then imx:=i;
 end;
writeln;
writeln('Максимальной элемент=',a[imx],' его номер=',imx);
if imx=7 then write('Обмена нет')
else
 begin
  x:=a[imx];
  a[imx]:=a[7];
  a[7]:=x;
  writeln('Обмен максимального и седьмого элементов');
  for i:=1 to n do
  write(a[i]:4);
 end;
end.

Поделитесь своим мнением или задайте вопрос