Delhi почему не считает к

[Anton19901505]

Задана символьная матрица размером . Определить k - количество различных элементов матрицы (т. е. повторяющиеся элементы считать один раз).

[Serge_Bliznykov]

ошибка в том, что Вы заполняете грид StringGrid1, а считаете в массиве A (который не заполнен).

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

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
   randomize; // это лучше вынести в процедуру FormCreate
   N := StrToInt(Edit1.Text);
   for i:=1 to N do
         for j:=1 to N do begin
           A[i,j] := char(random(26)+97);
           StringGrid1.Cells[ j, i ] := A[i,j]; // и обратите внимание, что в Cells индексы в обратном порядке - сначала столбец, потом - строка
         end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var 
   i,j,k:integer;
   m:set of char;

begin
   k:=0;
   m:=[];
   for i:=1 to N do
     for j:=1 to N do
         if not (a[i,j] in m) then
         begin
               Include(m, a[i,j]);
               Inc(k);
         end;
   Label4.Caption:=inttostr(k);
end;