Цитата:
Сообщение от Riate
 :
В одномерном массиве, состоящем из 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.