массивы

[Zaraaa]

помогите пжл: дана матрица А(n,n); начало правильное, а вот в чем проблема:
не правильно считает "сумму модулей цифр четных элементов",
например,матрица (2х2)
23 -24
27 18
четн элементы это 18 и -24
должно получится так - сумма модулей цифр четн элементов: ((1+8)+(2+4))=15, но считает неправильно(
ПОМОГИТЕ ПОЖАЛУУУЙСТА((((

unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
StringGrid2: TStringGrid;
Label5: 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..10,1..10] of integer;
temp:integer;
summ,i,j,m,N,max:integer;
SummChet,SummNechet:integer;
begin
N:=StrToInt(InputBox('ввод','N= ',''));
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=n;
StringGrid2.ColCount:=n;
summ:=0;
randomize;
max:=0;
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]);
summ:=summ+abs(a[j,i]);
if summ>max then max:=summ;
end;
Label1.Caption:=Label1.Caption+inttostr(i)+''+'cтрока= '+''+floattostr(summ)+ ' ';
summ:=0
end;
Label2.Caption:=Label2.Caption+'Максимальная сумма строки= '+inttostr(max)+ ' ';
SummChet := 0;
for i := 1 to n do
for j := 1 to n do
if (a[j, i] mod 2 = 0) then
inc(SummChet, a[j, i]);
Label3.Caption:=Label3.Caption+'Сумма четных элементов= '+inttostr(SummChet);

{ВОТ ОШИБКА В ЭТОЙ ЧАСТИ
SummChet := 0; 
for i := 1 to n do
for j := 1 to n do
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;
Label4.Caption:=Label4.Caption+'Сумма цифр четных элементов: '+inttostr(SummChet); }


for j:=1 to N do
begin
temp:=a[j,1];
a[j,1]:=a[j,N];
a[j,N]:=temp;
end;
for i:=1 to N do
for j:=1 to N do
StringGrid2.cells[j-1,i-1]:=inttostr(A[j,i]);

end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Dozent]

SummChet:= SummChet+(temp mod 10);

Зачем?

[Serge_Bliznykov]

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

SummChet:= SummChet+(temp mod 10);

Зачем?

что найти сумму ЦИФР чётного числа.


Zaraaa
да. есть ошибка!

 for i := 1 to n do
    for j := 1 to n do
      if ((a[j, i] mod 2) = 0) then
      begin
        temp := abs(a[i, j]);

теперь заметно, где Вы накосячили?!


p.s. а зачем у Вас этот код закомментирован?!

p.p.s. А ещё ВАЖНО!! Вы знаете, что в обычном массиве ОБЫЧНО сначала указывается индекс строки, потом - индекс столбца.
например, A[2, 5] это элемент 2-й строки и 5-го столбца.
А в этом извращенном StringGrid всё НАОБОРОТ - сначала указывается номер СТОЛБЦА, а потом- номер СТРОКИ.
т.е. StringGrid1.Cells(2,5) - это элемент 5-й строки и 2-го столбца!!! я не вижу, чтобы Вы у себя в коде это учитывали