Delphi,Работа с массивами

[iSpoke]

Задание:Вычислить куб суммы и число тех элементов заданного массива X1,X2, … ,Xn,
значения которых меньше R или находятся в пределах от Т до Р.

Написал программу, но куб суммы не высчитывается - постоянно равен нулю.

Вот программа

program Lab2;

{$APPTYPE CONSOLE}


uses
  SysUtils, Math;




var
x: array [1..1000] of real;
n, i:integer;
t,r,p,Sub,S: real;

begin


	     writeln('Kolichestvo tochek n:');
       readln(n);
	     writeln('Kriticheskoe udalenie  r:');
       readln(r);
       writeln('Kriticheskoe udalenie  t:');
       readln(t);
       writeln('Kriticheskoe udalenie  p:');
       readln(p);
       writeln('	Kol tochek =', n:3);
	     writeln('	Krit udal = ', r:4:1);
       writeln('	Krit udal = ', t:4:1);
       writeln('	Krit udal = ', p:4:1);

	     for i:=1 to n do writeln;
       if (x[i]<R) or (x[i]>T) and (x[i]<P) then
       Sub:=0;
       For i:=1 to n do writeln;
 	Sub:=Sub+x[i];
  S:=Sub*Sub*Sub;
  writeln('Kub summi raven','  ',s:3:8);
  readln;
  end.

Посмотрите плз в чем тут может быть недочет.

[Вавел из ГМТУ]

Массив то не заполнен... Ясен пень что всё будет нулю равно.

[blackbanny]

if (x[i]<R) or (x[i]>T) and (x[i]<P)

с условием не сходится, надо:

if (x[i]<P) or (x[i]>T) and (x[i]<R) then

[iSpoke]

blackbanny поправил - происходит тоже самое
Вавел из ГМТУ в каком смысле не заполнен?

АААА! прошу прощения) правда не заполнен)
исправил - все работает
очень глупая ошибка


А как тут применить заглушку?

[Вавел из ГМТУ]

А что такое "заглушка"? )

[iSpoke]

Заглушка - это проверка ввода и вывода информаци

если чесно плохо понял как она работает, поэтому и спрашиваю, но поомему там надо сразу задать переменные какието чтобы проверить правильность задания..