Question

Даны целое n число и вектор X, содержащий n элементов. Составьте блок-схему решения задачи и напишите на языке Турбо Паскаль программу, которая вычислит и выведет сумму индексов всех наибольших (не единственных) элементов массива.

Answer 1

Ответ:

var

 X: array[1..100] of integer;  // массив

 n, i: integer;  // счетчики

 max, sum: integer;  // максимум и сумма индексов

begin

 readln(n);  // считываем размер массива

 // считываем элементы массива

 for i := 1 to n do begin

   readln(X[i]);

 end;

 // инициализируем максимум

 max := X[1];

 // находим максимум

 for i := 2 to n do begin

   if X[i] > max then begin

     max := X[i];

   end;

 end;

 // инициализируем сумму

 sum := 0;

 // перебираем элементы массива

 for i := 1 to n do begin

   // если элемент равен максимуму, то добавляем его индекс к сумме

   if X[i] = max then begin

     sum := sum + i;

   end;

 end;

 // выводим сумму

 writeln('Сумма индексов: ', sum);

end.