Заданный одномерный массив. Найти сумму элементов массива, которые удовлетворяют условию ( Delphi )

[Святослав2703]

Заданный массив (ci) содержит t элементов. Найти сумму тех элементов массива, которые попадают в сегмент [a,b], т.е. удовлетворяют соотношению: a<= cj <=b.
Может это кто-нибудь сделать это, не получается у меня. Если можете то киньте готовый проект на почту. slo270395@mail.ru

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
const t=0;
var ci:array[0..t] of double; a,b:double;i:integer;
begin
 for i:=Low(ci) to high(ci) do Readln(ci); Readln(a); Readln(b);
 for i:=Low(ci) to high(ci) do if (ci[i]>=a)and(ci[i]<=b) then Writeln(ci[i]:5:2);
readln;
end.

[Святослав2703]

сделал все как написано. не получается

[Вадим Мошев]

Может это кто-нибудь сделать это, не получается у меня. Если можете то киньте готовый проект на почту. slo270395@mail.ru

Срочна помагити. Нам в пионерском лагере задали построить скворечник, а я не умею. Поэтому сколотите для меня скворечник и, если можно, отправьте мне бандеролью на почту: город Зеленопупинск, улица Васечкина, дом 1, кв 1. Васе Дыркину.

[Святослав2703]

Можешь объяснить чё зачем и как

[Stilet]

Можешь объяснить чё зачем и как

Могу. Это консольная программа. Нужно создавать Console Application.
Далее вставлять код. Но не тупо а вдумчиво.
У меня в ХЕ3 к примеру System.SysUtils
У тебя в Делфи скорее всего просто SysUtils.
Остальное по большему счету не меняется.
В программе два цикла - один просит ввести массив и а и б, второй выводит элементы по условию.
В конце ожидается нажатие энтера.