блок-схема

[rik1]

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

program p6;
uses crt;
const n=7;
var a:array [1..n,1..n] of integer;
    d,i,j:integer;
begin  clrscr; randomize;
    for i:=1 to n do begin
     for j:=1 to n do begin
     a[i,j]:=random(17)+4; write(a[i,j]:4); end; writeln; end;
     d:=1;
     for i:=1 to n do
      for j:=1 to n do
      if a[i,j]<0 then d:=d*a[i,j];
 
    writeln(d); 
 
    for i:=1 to n do
     for j:=1 to n do
     if i+j=n+1 then a[i,j]:=d;
 
     for i:=1 to n do begin
     for j:=1 to n do
     write(a[i,j]:4); writeln; end;
 
readkey;
end.

[Serge_Bliznykov]

1) при таком заполнении

a[i,j]:=random(17)+4

в матрице отрицательных вообще не будет.

2)

if a[i,j]<0

- это условие проверки на ОТРИЦАТЕЛЬНЫЕ числа. (Вам нужны положительные, это условие БОЛЬШЕ нуля

3) произведение - это очень быстро растущая функция. даже если умножить не 49 чисел, как у Вас, а всего четыре (20*20*20*20) то получим 160000. Это число, которое значительно превыщает допустимое число в Integer для TurboPascal. А если добавить ещё несколько членов ряда - то и в Integer Delphi/FreePascal не влезет!
я бы уточнил ещё раз исходное задание.

4) в квадратной матрице две основные диагонали.
это главная диагональ. для неё выполняется условие I=J (индекс строки равен индексу столбца)
и побочная диагональ. для неё выполняется условие I = (N+1-J)
у Вас же что-то непонятное написано, надо переделать...

ну, как то так..