Технический форум - Помогите решить на Паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите решить на Паскале (http://www.tehnari.ru/f41/t99023/)

Riate

22.10.2014 14:23

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

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

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

Vladimir_S

22.10.2014 15:29

Цитата:

Сообщение от Riate (Сообщение 1072118)

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

Код:

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

22.10.2014 16:45

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

:tehnari_ru_288::tehnari_ru_288::tehnari_ru_288::t ehnari_ru_288:

Riate

22.10.2014 17:11

[QUOTE=Vladimir_S;1072128]
можно спросить?
вот после I что?(_last) tehno014

AlexZir

22.10.2014 18:32

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

Vladimir_S

23.10.2014 11:23

Цитата:

Сообщение от AlexZir (Сообщение 1072171)

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

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

Часовой пояс GMT +4, время: 14:15.