В массиве, содержащем 15 элементов, найти сумму элементов, абсолютная величинакоторых отличается от заданного числа более чем на 6. Среди остальных элементов найти минимальный элемент и его индекс.

Uses crt;

const n=15;

var

a: array [1 ... n] of integer;

sum, min, i, x, j: integer;

begin

clrscr;

sum:=0;

min:=0;

write ('Array: ') ;

for i:=1 to n do

begin

a[i]:=random (41) - 20;

write (a[i],' ') ;

end;

writeln () ;

write ('x=') ;

readln (x) ;

for i:=1 to n do

begin

if abs (a[i]) = x then

sum:=sum+a[i]

else

if min>a[i] then

begin

min:=a[i];

j:=i;

end;

end;

writeln ('sum=', sum) ;

writeln ('min=', min) ;

writeln ('index=', j) ;

readln () ;

end.