[Adast]

Добрый день!
вот мучаюсь и никак не домучаюсь)))
есть задачка

Даны натуральное число n, действительные числа х1, .... , хn. в последовательности х1, .... , хn все члены, меньшие двух заменить нулями. Кроме того, получить сумму нечетных элементов массива и их количество.

я так понял, что memo выводим массив каких либо чисел, к примеру Random(10), а потом заменяем 1 на 0 - вот здесь и вышла загвоздка ((((
у меня все числа заменяются нулями

Помогите плиз

P.S. код для заполнения мемо у меня вышел такой:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
memo1.Clear;
for i:=1 to n do
begin a[i]:=random(10);
memo1.Lines.Add(inttostr(a[i]));
end;
end;

код для замены:

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to n do
if a[i]=1  then
a[i]:=0;
memo1.lines.add(inttostr(a[i]));

Admin: Пользуемся тегами!