Помогите решить на Паскале

[Riate]

Помогите решить на Паскале

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

никак не могу решиииить

 

[Vladimir_S]

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

никак не могу решиииить

Да ну, прям - задача века! Чушь школьная:

Const
 N=20;
Var
 A:Array[1..N] of real;
 i,I_last:integer;
 Sum:real;
Begin
 Randomize;
 for i:=1 to N do
  begin
   A[i]:=5.0-Random*10;
   write(A[i]:8:3);
  end;
 Writeln;
 I_last:=N+1;
 Repeat
  Dec(I_last);
 Until A[I_last]>0;
 Sum:=0;
 for i:=1 to I_last do
  Sum:=Sum+A[i];
 Writeln('Sum = ',Sum:0:3);
 Readln
End.

 

[Riate]

спасиииибо большое

:tehnari_ru_288::tehnari_ru_288::tehnari_ru_288::tehnari_ru_288:

 

[Riate]

можно спросить?
вот после I что?(_last) tehno014

 

[AlexZir]

Это имя переменной такое, в переводе с буржуинского I_Last означает I_последнее

 

[Vladimir_S]

Это имя переменной такое, в переводе с буржуинского I_Last означает I_последнее

Ага. Искомый номер последнего положительного члена массива. Алгоритм поиска: идём с конца, уменьшая номер до тех пор, пока не наткнёмся на положительный элемент. А уже потом суммируем элементы, начиная с первого и по этот самый I_Last.