МАССИВЫ

[Zaraaa]

помогите ПОЖАЛУЙСТА!!!((( не могу понять в чем ошибка???

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Var a:array[1..100,1..100] of integer;
     temp:integer;
    i,j,m,N,max:integer;
      SummChet,SummNechet:integer;
begin
N:=StrToInt(InputBox('ââîä','N= ',''));
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
SummChet:=0;
randomize;
for i:=1 to N do begin
for j:=1 to N do  begin
a[j,i]:=random(100)-50;
StringGrid1.cells[j-1,i-1]:=inttostr(A[j,i]);

if (a[j, i] mod 2 = 0) then
  begin
    temp:=abs(a[i,j]);
    while (temp<>0)do
    begin
    SummChet:= SummChet+(temp mod 10);
    temp:=temp div 10;
    end ;
  end;
  end;
  Label1.Caption:=Label1.Caption+'CУММА ЦИФР ЧЕТНЫХ ЭЛЕМЕНТОВ= '+inttostr(SummChet);
end;
end;
end.

[Вадим Мошев]

Какие ошибки? В какой строке? Какая задача?

[evg_m]

if (a[j, i] mod 2 = 0) then begin
        temp:=abs(a[i,j]);

сравни порядок индексов.

для защиты от таких ошибок лучше сначала все заполнить, а потом уже в новом цикле все посчитать.