Двумерный Массив Delphi7

[halo]

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

Попробуй так:

procedure TForm1.Button2Click(Sender: TObject);
var A: Array [1..15,1..15] of Integer;
    i,j: Integer;
    eo,ep,n: integer;
           b:boolean;
begin
     n:=SpinEdit1.Value;
     For i:=1 To n Do
      For j:=1 To n Do
       A[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
     
     for j:=1 to n do
     Begin 
        b:=true;
        for i:=1 to n-1 do 
          if a[i,j]<>a[i+1,j] then b:=false;
        if b then Memo1.Lines.Add(IntToStr(j)); End;
    end;

end;

Спасибо))) именно ето мне и нужно было)) щас буду делать прогу)))))

[Stilet]

warma2d

Дык я и подсказал

[warma2d]

Stilet

Кажется понял и всё вроде бы работает
Если я понял фишку, то будет так:

program Rabota620;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var

i,j,n,m,k:integer; //rabo4aya peremennaya
d:array [1..10,1..10] of real; // Massiv 1
F:array[1..100] of Record
                             n,m:integer;
                         end;
begin

writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(d[i,j]);
  k:=0;
 for i:=1 to n do
  for j:=1 to m  do
     if (d[i,j]>=-2)and(d[i,j]<=2) then
       Begin
         k:=K+1;
         F[k].n:=i;
         F[k].m:=j;
      end;
WriteLn ('Kol-vo elementov: ',k);
WriteLn ('Ih numera:');
if k>0 then    //proverka bili li takie 4usla
    For i:=1 to k do
       WriteLn (F[i].n,' ',F[i].m);

readln;
end.

Огромное спасибо! Очень помогло!