ДВУМЕРНЫЙ И ОДНОМЕРНЫЙ МАССИВЫ

[ALYSA]

помогите пожалуйста с задачками

1) в двумерном массиве Z - n-строк, m-столбцов. Найти сумму элементов, значения которых удовлетворяютусловию A<Z(i,j)<B, где A,B - произвольные числа, и ихколичество и проверить элемент на четность, сообщение вывести.

2) в одномерном массиве Т, состоящем из N элеметов, определить порядковые номера
а) элементов меньших заданного числа W;
б) положительных элементов

[Hacker19_90]

1)

sum := 0;
for i := 1 to n do
    for j := 1 to m do
    begin
         if (Z[i,j] > A) and (Z[i,j] < B) then
             Inc(sum, Z[i,j]);
          if ((Z[i, j] mod 2) = 0) then
          begin
                writeln('элемент Z[',i,',',j,'] = ', Z[i, j], ' чётный');
          end;
    end;
Writeln ('Сумма = ', sum);

[Hacker19_90]

2)

Writeln ('порядковые номера элементов меньших заданного числа', W);
for j := 1 to n do
    begin
         if T[j] < W then
          begin
                write(j:4);
          end;
     end;
Writeln;
writeln('порядковые номера положительных элементов');
for j := 1 to n do
    begin
         if T[j] > 0 then
          begin
                write(j:4);
          end;
     end;

[ALYSA]

большое спасибо, а можно то же самое для VBA в access?

[ALYSA]

спасибо большое, а можно те же задачи для VBA в access?

[Hacker19_90]

Извини, но не шарю в VBA

[ALYSA]

и на том спасибо)))