Задача на DELPHI

[ZhNatali]

Помогите решить задачу!!
Найдите количество чисел, принадлежащих промежутку [А,В], и сумму чисел, стоящих на местах, кратных 3.
Входная информация:
1. Задать числа А и В;
2. Задать количество данных в массиве;
3. Задать сам массив;

Заранее

[dr.Jekill]

[syntax="pascal"]
uses crt;
var a,b,sum: real;
mas:array[1..50] of ^real;
i,n,kol,i_a,i_b: byte;
begin
clrscr;
write('Vvedite a: ');
readln(a);
write('Vvedite b: ');
readln(b);
write('Zadaite kol-vo elementov massiva: ');
readln(n);
clrscr;
writeln('Vvodite elementy massiva.');
i_a:=0;
i_b:=0;
for i:=1 to n do
begin
new(mas);
write(i,': ');
readln(mas^);
if mas^=a then i_a:=i;
if mas^=b then i_b:=i;
end;
kol:=0;
sum:=0;
if (i_a>0) and (i_b>0) then
begin
for i:=i_a to i_b do
begin
inc(kol);
if i mod 3 = 0 then sum:=sum+mas^;
end;
writeln('Kol-vo elementov intervala [a..b]: ',kol);
readkey;
write('Summa elementov na poiziciah, kratnyh 3: ',sum:6:2);
readkey;
end
else
begin
writeln('Interval [a..b] ne naiden!');
readkey;
end;
for i:=1 to n do dispose(mas);
end.
[/syntax]

[Хыиуду]

dr.Jekill добрый. Я бы тему с таким названием удалил бы.

[atavin-ta]

Размерность массива заранее не известна, но сделать надо в делфях? На плюсплюсе не проще?

[ZhNatali]

Здравствуйте.
За помощь, огросное спасибо!
Я немного доработала и у меня все получилось, если у кого-то будет желание, могу вылажить задачу.
ВОПРОС?
Почему бы Вы тему с таким названием удалили бы?

dr.Jekill добрый. Я бы тему с таким названием удалил бы.

--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------

Размерность массива заранее не известна, но сделать надо в делфях? На плюсплюсе не проще?

Большое спасибо, что отозвались.
Я начинаю изучение языков программирования.
Мой первый язык - Delphi. Си++ я не знаю.

[dr.Jekill]

Почему бы Вы тему с таким названием удалили бы?

Потому, что темы с названиями, не отражающими суть вопроса, удаляются - считайте, что Вам повезло.
Выкладывайте итоговую задачу.

[ZhNatali]

Спасибо за замечание, в следующий раз исправлюсь.

Потому, что темы с названиями, не отражающими суть вопроса, удаляются - считайте, что Вам повезло.
Выкладывайте итоговую задачу.

[ZhNatali]

Как и обещала, выкладываю задачу.
[syntax="Delphi"]
procedure TForm1.Button1Click(Sender: TObject);
var c:array[1..20] of integer;
a,b,n,i,s,k:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit5.Text);
for i:=1 to n do c:=StrToInt(StringGrid1.Cells[0,i-1]);
s:=0;
k:=0;
for i:=1 to n do
begin
if (c>=a)and (c<=b) then
begin
inc(k); // увеличиваем к на 1
StringGrid2.Cells[0,k-1]:=IntToStr(c);
end;
if i mod 3=0 then s:=s+c;
end;
Edit3.Text:=IntToStr(k);
Edit4.Text:=IntToStr(s);
end;
end.
[/syntax]