Question

Определить разность R = S1 - S2, где S1 – сумма индексов максимальных элементов массива; S2 – сумма индексов минимальных элементов массива
ABCPascal

Answer 1

var

 A: array[1..10] of integer;

 maxIndex, minIndex: integer;

 R: integer;

begin

 maxIndex := 1;

 minIndex := 1;

 for i := 1 to 10 do

 begin

   if A[i] > A[maxIndex] then

     maxIndex := i;

   if A[i] < A[minIndex] then

     minIndex := i;

 end;

 R := maxIndex - minIndex;

 writeln(R);

end.