необходимо решить задачу, как задать произведение?

[Юлия0605]

НЕобходимо написать программу: Дана квадратная вещественная матрица А порядка N, где N - заданное натуральное число. найти произведение элементов матрицы, расположенных на двух диагоналях, параллельной главной и граничащих с ней. заранее спасибо большое)

[Abstraction]

Что Вы уже сделали? В чём Вы испытываете затруднения?
Если не сделали пока ничего - напишите код, который бы выводил верхний левый элемент матрицы (и только его).

[Юлия0605]

Program Kurs_Ch1;
uses crt;
var A: array [1..100, 1..100] of integer;
   i, j, p, N: integer;
begin
clrscr;
write ('Vvedite razmer massiva ');
readln (N);
randomize;
for i:=1 to N do
for j:=1 to N do
  begin
  A[i,j]:= random (100);
  end;
for i:=1 to N do
  begin
  for j:=1 to N do
     begin
     write (A[i,j],' ');
     end;
  writeln;
  end;
p:=1;
for i:=1 to N-1 do
begin
  for j:=2 to N do
begin
p:=p*A[i,j]*A[j,i]
end;
  end;
writeln ('proizvedenie= ',p);
readkey;
end.

Вот что есть, но не правильно выдает... что не так?

[Stilet]

Думаю цикл вычисления должен выглядеть так:

p:=1;
for i:=1 to n do begin
 if (i>1) then p:=p*a[i-1,i];
 if (i<N) then p:=p*a[i+1,i];
end;

[Юлия0605]

не работает(

[whatever]

Вот как вариант

p:=a[1,2];
for i:=2 to N-1 do
  p:=p*a[i,i+1]*a[i,i-1];
p:=p*a[n,n-1];

Те же яйца, только в профиль
Вариант Stilet'а тоже правильно считает

[Юлия0605]

число маленькое получается((((( что-то не так

[whatever]

Все так, просто в integer не влезает. Сделай p:real;
Я просто на random(10) проверял, чтоб проще считать было.