GAECHKA
Твоя помощница в решении задач

Вычислить сумму элементов, следующих за максимальным элементом в массиве А

Помогите!!!
0
вопрос задан

Источник


2 ответа
Задача состоит из двух стандартных задач, которые сто раз разбирались на форуме:
1. Найти номер максимального элемента.
2. Найти сумму элементов массива
Задача легко выполняется за два прохода по массиву, хотя в принципе, можно обойтись и одним проходом
хотя в принципе, можно обойтись и одним проходом
Кроме того максимальных может быть несколько, посчитаем сумму после последнего максимального, например так.
const n=20;
var a:array[1..20] of integer;
    i,mx,s:integer;
begin
randomize;
s:=0;
for i:=1 to n do
 begin
  a[i]:=random(50)+1;
  write(a[i]:3);
  if i=1 then mx:=a[1]
  else
   begin
    if a[i]>=mx then
     begin
      mx:=a[i];
      s:=0;
     end
    else s:=s+a[i];
   end;
 end;
writeln;
writeln('max=',mx);
write('sum=',s)
end.