В массиве C (N) найти сумму элементов массива, расположенных после максимального элемента

[Альбет]

В массиве C (N) найти сумму элементов массива, расположенных после максимального элемента

[Alex11223]

Что именно?

[Альбет]

составление программы

[Alex11223]

Вопрос-то какой конкретно?

[digitalis]

Телепатирую. Вопрос: "Кто за меня это напишет?"
Уточним. У Паскаля не бывает C (N), а бывает С[0..N] или С[1..N]. Телепатор перегрелся, не чую
Ничего с собой не могу поделать (и Неверова что-то не слыхать), люблю лентяям помогать. Да еще не в 2 цикла, а в один, так вооще...

  begin
    s := 0 ;
    Cmax := C[1] ; // это для С[1..N]
    for i := 2 to N do
       if C[i] <= Cmax then s := s + C[i] else
          begin
              s := 0 ;
              Cmax := C[i]
          end  ;
     Writeln ('Наша сумма офигенна и равна = ', s) 
   end ;

[newerow1989]

const n=10;
var c:array[1..n] of integer;
    i,mi,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      c[i]:=Random(21);
      Write(c[i]:3,'  ');
   end;
   Writeln;
   mi:=1;
   For i:=2 to n do
      If c[mi]<c[i] then
         mi:=i;
   s:=0;
   For i:=mi+1 to n do
      s:=s+c[i];
   Writeln(s);
   Readln;
end.

Сообщение от digitalis

Неверова что-то не слыхать

Пишите на мой e-mail

[digitalis]

Да нет, в форуме, говорю, давно не появлялся - лентяи в тоске.
Конечно, понравится - два цикла - это же не один. Один цикл вычисления - как-то несолидно, да?
Сразу петь мы лучше стали,
Стали качество ценить,
А когда ж нам перестали
За количество платить. © "Ярославские ребята"