В массиве, содержащем 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.