Добрый день!
вот мучаюсь и никак не домучаюсь)))
есть задачка
Даны натуральное число 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: Пользуемся тегами!