одномерные массивы

[innaa639]

Вот есть программка, по этому условию :

В одномерном массиве, состоящем из N вещественных элементов, вычислить:
1)количество элементов массива, лежащих в диапазоне от А до В;
2)сумму элементов массива, расположенных после максимального элемента.

Я вот только одно не могу понять как он считает сумму элементов массива, расположенных после максимального элемента...где эти элементы, их можно вывести на экран как-то, помогите пожалуйста....

program 1;
const n=100;
   var
      i,a,b,max,c,d,e : integer;
          mas : array [1..n] of integer;

begin
write('vvedite razmer massiva (1<n<100)');
readln(c);

for i:=1 to c do
mas[i]:=random(5);


writeln('vvedite A i B');
readln(a,b);

max:=1;

for i:=1 to c do
if mas[i]>mas[max] then max:=i;

e:=0;
max:=max+1;
for i:= max to c do
e:=e+mas[i];

writeln('elementov masiva mezdu A i B: ',abs(b-a));
writeln('summa elementov posle maximum: ',e);

readln

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Pein95]

для того чтоб пощитать суму елементов лежащих после макс. елемента нужно:
1. Найти индекс макс. елемента.
2. Найти суму елементов начиная с елемента индекс которого на еденицу большый от индекса макс елемента.

[kuy]

Если вам нужно вывести сам массив на экран, то вот:

const n=100;
 var
 i,a,b,max,c,d,e : integer;
 mas : array [1..n] of integer;

 begin
 write('vvedite razmer massiva (1<n<100), n=');
 readln(c);

 for i:=1 to c do
 mas[i]:=random(5);

 writeln('massiv:');
 for i:=1 to c do write(mas[i],'  '); Writeln;
 writeln('vvedite A i B:');
 write('A='); readln(a);
 write('B='); readln(b);

 max:=1;

 for i:=1 to c do
 if mas[i]>mas[max] then max:=i;

 e:=0;
 max:=max+1;
 for i:= max to c do
 e:=e+mas[i];

 writeln('elementov masiva mezdu A i B: ',abs(b-a));
 writeln('summa elementov posle maximum: ',e);

 readln

 end.

[Pein95]

вот пример кода:

for i:=1 to n do
if a[i]>max thne imax:=i;

for i:=imax+1 to n do
sum:=sum+a[i];

[innaa639]

спасибо,сейчас попробую

[innaa639]

А если мах элементов несколько, то программа должна брать первый по очереди,правильно?

[rUs_LAN]

да правильно, и еще

1)количество элементов массива, лежащих в диапазоне от А до В;
если имееться в виду диапазон индексов тогда надо b-a-1, но тогда непонятно зачем abs. Если в диапазоне между елементами тогда это не так делаеться.

[Serge_Bliznykov]

ох и понаписали...
что-то абсолютно правильно!
но и, к сожалению, местами абсолютно правильный код меняли на ошибочный!


Тогда я позволю себе привести свой вариант решения данной задачи.

program pMas;
const n = 100;
var
  i,
    imax, {индекс максимального элемента в массиве}
    c: integer; {количество элементов в массиве}
  A, B: real;
  kBetween: integer; {счётчик элементов между A и B}
  e: real; {для накомпления суммы элментов после максимального}
  mas: array[1..n] of real; {в условиях массив ВЕЩЕСТВЕННЫЙ!}

begin
  Randomize; {обязательно - чтобы числа были действительно случайными}

  repeat
    write('vvedite razmer massiva (1<n<100)');
    readln(c);
  until (c > 0) and (c <= 100);

  for i := 1 to c do
   {заполняем случайными числами от нуля до 9.9999}
    mas[i] := trunc(random * 100000) / 10000;

  writeln('vvedite A i B');
  readln(A, B);

  Writeln;
  Writeln('Ishodnyi msssiv');
  for i := 1 to c do
    Write(mas[i]: 2: 4, ' ');
  Writeln;

  {посчитаем количество элементов между A и B}
  kBetween := 0;
  for i := 1 to c do
    if (A < mas[i]) and (mas[i] < B) then inc(kBetween);


  {найдём максимальное значение}
  imax := 1;
  for i := 2 to c do
    if mas[i] > mas[imax] then imax := i;

  Writeln;
  WriteLn('Maximalnyi element mas[', imax, '] = ', mas[imax]: 2: 4);
  Writeln;

  e := 0.0;
  WriteLn('Elementy posle maximalnogo: ');
  for i := imax + 1 to c do begin
    e := e + mas[i];
    Write(mas[i]: 2: 4, ' ');
  end;
  Writeln;
  Writeln;

  writeln('elementov masiva mezdu A i B: ', kBetween);
  writeln('summa elementov posle maximum: ', e: 0: 4);

  readln

end.