Массив

[Женечка92]

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-600,600]. Удалить из него все элементы, в которых последняя цифра 0. Помогите пожалуйста, посмотрите в чем ошибка. Вроде все сделала, а когда программу запускаю, он иногда правильно, а иногда нет. т.е. удаляет не только элементы, которые на 0 заканчиваются, но и другие некоторые.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   Const
N=10;
var
  Form1: TForm1;
    //А - исходный массив, В - полученный массив  A,B:array[1..N]of integer;
  i,j:integer;
  str:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Enabled:=true;
  Randomize;
  str:='';
  for i:=1 to N do
    begin
      A[i]:=Random(1201)-600;
      str:=str+IntToStr(A[i])+#9;
    end;
  Memo1.Lines.Add(str);
  str:='';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
   button2.Enabled:=false;
  str:='';
  j:=0;
  for i:=1 to N do
    begin
      if Frac(A[i]/10) <> 0 then //если элемент при делении на 10 имеет дробную часть,
        begin                          //вставляем его в массив В, если нет, пропускаем его          j:=j+1;
          B[j]:=A[i];
          str:=str+IntToStr(B[j])+#9;
        end;
    end;
  Memo1.Lines.Add(str);
  end;
end.

[Stilet]

Я бы так условие поставил:

if A[i] mod 10=0 then то элемент на 0 заканчивается

[NiCola999]

как раз так и надо было) все числа, кроме нуля при делении на 10 не будут равны 0

[Женечка92]

А это вместо чего получается вставить надо??

[NiCola999]

вместо:

 if Frac(A[i]/10) <> 0 then

[Женечка92]

[Warning] Unit1.pas(38): For loop control variable must be simple local variable что значит эта ошибка??? он мне ее на A[i] выводит

[Error] Unit1.pas(40): Undeclared identifier: 'A' ой, вот эта!!! что это значит??? вроде только что все норм было, а теперь ему не нравится

сделала все как вы сказали, остальное оставила как было. вот что получилось:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Const
N=10;
var
  Form1: TForm1;
 A,B:array[1..N]of integer;   //À - èñõîäíûé ìàññèâ,  - ïîëó÷åííûé ìàññèâ
  i,j:integer;
  str:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Enabled:=true;
  Randomize;
  str:='';
  for i:=1 to N do
    begin
      A[i]:=Random(1201)-600;
      str:=str+IntToStr(A[i])+#9;
    end;
  Memo1.Lines.Add(str);
  str:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 button2.Enabled:=false;
  str:='';
  j:=0;
  for i:=1 to N do
    begin
      if A[i] mod 10=0 then //òî ýëåìåíò íà 0 çàêàí÷èâàåòñÿ
        begin                          //âñòàâëÿåì åãî â ìàññèâ Â, åñëè íåò, ïðîïóñêàåì åãî          j:=j+1;
          B[j]:=A[i];
          str:=str+IntToStr(B[j])+#9;
        end;
    end;
  Memo1.Lines.Add(str);
  end;

end.

но он теперь массив не заполняет числами по нажатию кнопки... подскажите в чем проблема

[Stilet]

А ты в инспекторе обьектов назначила этим кнопкам показанные тобой процедуры? Если нет то назначай с вкладке события на OnClick.

[Женечка92]

извините, а не напишите подробнее как это сделать??? я что то не поняла. программа правильно написана???