Одномерный массив.

[gree]

Всем привет, Помогите плиз составить задачку а то чёт воообще мысей даже никаких((Дан одномерный массив, Составить новый массив состоящий из положительных элементов данного масива записаных в обратном порядке.. Я понимаю что нужно задать 2 массива проверить каждый элемент с помощью ифа на <= 0 и записать.. но как выразить это в программе не знаю..(

[Sazary]

Все правильно понимаете. Так в чем проблема? Пока не попробуете, получаться не будет.
Есть исходный массив A, размером в N элементов. И есть массив B, тоже размером в N элементов. Но его размер хранится в M (так сказать, фактический размер, то есть сколько в нем реально элементов).
Сначала M = 0 (массив пуст).
Нужно пройти по массиву A от конца к началу в цикле. При этом, если элемент положительный, то пишем его в массив B и увеличиваем M.

for i:=N downto 1 do
 if A[i]>0 then
  begin
  inc(M);
  B[M] := A[i];
  end;

[gree]

а inc это что такое?

[Sazary]

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

а inc это что такое?

Инкремент. Просто прибавляет единицу к аргументу. Аналогично выражению:

i := i + 1;

[gree]

блин чето не пашет ((((((((

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..5] of integer;
i,j,m:integer;
begin
 for i:=1 to 5 do
a[i]:=strToInt(StringGrid1.Cells[i-1,0]);
  for i:=5 downto 1 do
 if a[i]>0 then
  begin
  i:= i + 1;
  B[j]:= A[i];
  end;
stringgrid2.Cells[i-1,0]:=inttostr(b[i]);
end;

end.

[Sazary]

Естественно. И не должно. С какой стати?

  i:= i + 1;

нельзя менять счетчик цикла.

  B[j]:= A[i];

что такое j? Оно у вас нигде не проинициализировано.

stringgrid2.Cells[i-1,0]:=inttostr(b[i]);

Что именно вы выводите? Единственное число. И то непонятно какое.

Рассуждайте логически, а не просто копируйте код. Тогда и ошибок будет меньше.

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..5] of integer;
i,j,m:integer;
begin
 for i:=1 to 5 do
a[i]:=strToInt(StringGrid1.Cells[i-1,0]);
m := 0;
  for i:=5 downto 1 do
 if a[i]>0 then
  begin
  inc(m);
  B[m]:= A[i];
  end;
 for i:=1 to m do
stringgrid2.Cells[i-1,0]:=inttostr(b[i]);
end;

[gree]

Спасибо огромное..