Побочная диагональ

[mimit]

В массиве записаны целые числа. Вычислить произведение элементов побочной диагонали массива меньших 10.

  const n=3;m=3;
var a:array [1..n,1..m] of integer;i,j,s:integer;

begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(20);
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
  end;
  s:=1;
  for i:=1 to n do
  begin
  s:=s*a[i,n-i+1]
  end;
  writeln('Произведение побочной диагонали=',s);
  readln;
end.

Я нашел произведение но не знаю как добавить условие чтобы элемент был меньше 10

[Mad_Cat]

for i:=1 to n do
  begin
if a[i,n-i+1]<10 then
  s:=s*a[i,n-i+1]
  end;

[Mixim]

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

В массиве записаны целые числа. Вычислить произведение элементов побочной диагонали массива меньших 10.
Я нашел произведение но не знаю как добавить условие чтобы элемент был меньше 10

Эх давно я последний раз код на Паскале писал, но попробую: побочная диагональ может быть только у квадратной матрицы - константа m не нужна, из этого получаем код:

  const n=3;
var a:array [1..n,1..n] of integer;i,j:integer;
s:longint;

begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(20);
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
  end;
  s:=1;
  for i:=1 to n do
  begin
if(a[i,n-i+1]<10) then
  s:=s*a[i,n-i+1]
  end;
  writeln('Произведение побочной диагонали=',s);
  readln;
end.

[/CODE]
Как-то так