массивы в delphi 7

[Naposaram]

Всем привет! За себя решать не прошу, прошу только помощи разобраться, т.к. самуому интересно!
Есть задачка:
"Составить программу для вычисления

F = C + A/10+B/(10-C+A)

где A - номер первого нулевого элемента двумерного массива 3*4;
B - сумма элементов массива с нечетными номерами;
C - количество элементов массива, больших D ( ввести D с коонсоли )."

Самый главный пока вопрос, что такое "номер первого нулевого элемента двумерного массива", по искав ничего не нашел, возможно не там искал...

Так вот начал писать то, что по легче, создал массив, заполнил вывел, все нормально, решил подсчитать сумму нечетных элементов не получилсь, что то, не выводит сумму только последнее не четное число или ноль... что не правильно написал?

procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  For i:=1 to 3 do
  For j:=1 to 4 do
  begin
  //StringGrid1.Cells[i,j]:=inttostr(random(100));
  mas[i,j]:=random(100); // - заполнил массив случайными числами
  //mas:= [i,j];
  s:= 0; // - переменная в которой будет считаться сумма
  if mas[i,j] mod 2 = 1 // - если элемент массива не делится на 2
    then s:=s+mas[i,j] // - тогда прибавляем его к занчению переменной S
      else ShowMessage('нет'); // - иначе вывожу сообщение, ну это я для себя убедился что он делит
  //Label2.Caption:= IntToStr(s); // для себя, проверяю выводит не четные числа
  StringGrid1.Cells[i,j]:=inttostr(mas[i,j]); // - поочередно заполняю ячейки в таблице
  End;
  Label2.Caption:= IntToStr(s); // по задумке должно вывестись сумма

end;

[Аватар]

Начальное значения s в цикле то зачем присваивается? Вынести за пределы цикла перед 1-ым FOR

[whatever]

Самый главный пока вопрос, что такое "номер первого нулевого элемента двумерного массива", по искав ничего не нашел, возможно не там искал...

Ну, допустим, есть у тебя массив array[1..3,1..3]of integer:

5  12 17
34  5  9
0  17  0

Первый нулевой элемент: [3,1].

[Naposaram]

Сообщение от Аватар

Начальное значения s в цикле то зачем присваивается? Вынести за пределы цикла перед 1-ым FOR

Оооо... точно спс =)

Ну, допустим, есть у тебя массив array[1..3,1..3]of integer:
Код:

5 12 17
34 5 9
0 17 0

Первый нулевой элемент: [3,1].

Угу... понятно, в твоей матрице понятно... а если такого типа будет:

0 58 12
0 26 1
0 17 0

Ну всякое же в жизни бывает =D, в этой матрце первый нулевой [1,1]?

1 58 0
0 5 68
11 0 7

А здесь [3,4]?

[ViktorR]

К вопросу о

Самый главный пока вопрос, что такое "номер первого нулевого элемента двумерного массива"

а) Двухмерный массив в памяти - одномерный: строка1, строка2 и т.д.
б) Принято просматривать матрицу строками (по умолчанию).
в) Вполне возможно, что правило просмотра матрицы следовало бы определить точно, для исключения догадок.
Т.о.
1 58 0
0 5 68
11 0 7

Тут первый нулевой - (1,3)

Как то так, думаю ...

[Naposaram]

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

К вопросу о

а) Двухмерный массив в памяти - одномерный: строка1, строка2 и т.д.
б) Принято просматривать матрицу строками (по умолчанию).
в) Вполне возможно, что правило просмотра матрицы следовало бы определить точно, для исключения догадок.
Т.о.
1 58 0
0 5 68
11 0 7

Тут первый нулевой - (1,3)

Как то так, думаю ...

Ксати а как номер его определить? =D или он так и будет [i,j]? А если делать перебор со сравнение массива, то он же будет смотреть по столбцам, значит на до из массива вытаскивить строки, тут уже для меня сложновато =(
дуамю должно выглядить так:

For i:=1 to 3 do
 if i = 0 the howMessage(IntToStr(i));

[ViktorR]

Номер элемента - это произведение номера строки на длину строки плюс номер элемента в строке:
D=i*n+j.

Следующая часть вопроса не понята


Где то так ...

[Naposaram]

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

Номер элемента - это произведение номера строки на длину строки плюс номер элемента в строке:
D=i*n+j.

Следующая часть вопроса не понята


Где то так ...

Ух ты а я и незнал что по формуле надо... тогда получается

1 58 0
0 5 68
11 0 7

D = 1*3+3, номер перврого нулевого элемента = 6...
а если нулевой элемент на второй строке тогда D = 2*4+1?

Вторая часть вопроса: для того что бы найти ноль в массиве надо организовать поиск по строчно т.к. изначально поиск будет проходить по столбцам на сколько я понял?

[evg_m]

if mas[i,j] mod 2 = 1 // - если элемент массива не делится на 2

в задании говорится про НОМЕР элемента, а не его ЗНАЧЕНИЕ!

B - сумма элементов массива с нечетными номерами;

[Naposaram]

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

в задании говорится про НОМЕР элемента, а не его ЗНАЧЕНИЕ!

Точно а я и не заметил но от этого легче не стало...

Другой вопрос как идет номерация массива, построчно или по столбцам?