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

Question

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

Comments

язык?

Answer 1

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.