найти сумму чисел, которые не попадают в интервал [с, d].

[Krazier]

Кто то может помочь решить такую задачку?
В массиве чисел с1, с2, … с40 найти сумму чисел, которые не попадают в интервал [с, d].

[Stilet]

Наработки в студию.

[ОДИНОЧЕСТВО В СЕТИ]

for i:=1 to 40 do
if (a[i]<c) or (a[i]>d) then s:=s+a[i];

[Krazier]

Прошу помочь с решением, а то не получается)

[начинающий кодер]

program m;
uses crt;
var i:integer;
c:array[1..40] of real;
a,d:real;
s:real;
begin
s:=0;
for i:=1 to 40 do
begin
Writeln('c[',i,']=');
readln(c[i]); end;
writeln;
writeln('a=');
Readln(a);
writeln('d=');
Readln(d);
for i:=1 to 40 do
if (c[i]<a) or (c[i]>d) then s:=s+c[i];
writeln('s=',s:6:2);
readln;
end.