Помоги составить прогу на массив в Delphi

[Radamant]

1) В массиве А(6) определить элементы массива, отвечающие условию 0<=A(i)<=15.
2) Если таких нет, вывести сообщение в: а) StringGrid; б)Label

Заранее спасибо!

[maladoy]

а чего не получается то????

[Radamant]

Сообщение от maladoy

а чего не получается то????

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

[maladoy]

вот тут и лейбла и стринггрид

[Radamant]

procedure TForm1.Button1Click(Sender: TObject);
var
A: array [1..6] of integer;
i:integer;
begin
For i:=1 to 6 do
a[i]:=strtoint(stringgrid1.Cells[i-1,0]);
if (a[1]<=15) then
if (a[1]<0) then
if(a[1]>15) then

вот что после Then писать,под стринг грид и под лейбл???

[maladoy]

Сообщение от Radamant

procedure TForm1.Button1Click(Sender: TObject);
var
A: array [1..6] of integer;
i:integer;
begin
For i:=1 to 6 do
a[i]:=strtoint(stringgrid1.Cells[i-1,0]);
if (a[1]<=15) then
if (a[1]<0) then
if(a[1]>15) then

вот что после Then писать,под стринг грид и под лейбл???

if (a[i]<=15) and (a[i]>= 0) then
label1.caption:=label1.caption + intToStr(a[i]);

[Radamant]

блин там тока в лейбл выводится итоговые значения.(

[maladoy]

поставь счетчик и если он будет равен 0 то

label1.caption:='таких элементов нет';
stringgrid1.cells[0,0]:= 'таких элементов нет';

[paloit]

362827711 стучись. разберемся

[Radamant]

ок, спасибо! =)