Помогите решить. Паскаль
В одномерном массиве,состоящем из n вещественных элементов,вычислить сумму элементов массива ,расположенных между первым и вторым отрицательными элементами.Спасибо.
|
const n=10;
var A: array[1..n] of integer; i,j: byte; n1,n2: integer; sum: integer; begin Randomize; for i:=1 to n do begin A[i]:= Random(100)-40; Write(A[i]:4); end; Writeln; j:=0; n1:=0; n2:=0; repeat for i:=1 to n do begin if (A[i]<0) and (n1<>0) then begin n2:= i; Inc(j); Break end; if (A[i]<0) and (n1=0) then begin n1:= i; Inc(j); end; end; until j=2; sum:=0; if (n1+1)=n2 then sum:=0 else if (n1+1)=(n2-1) then sum:= A[n1+1] else for i:=(n1+1) to (n2-1) do sum:= sum + A[i]; Writeln(sum); Readln; end. |
Спасибо большое.
|
Часовой пояс GMT +4, время: 21:43. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.