напишите блок схему

[Владимир163]

напишите пожалуйста блок схему по листингу программы👇
program prog;
var i, j, n, m_i, m_j: byte;
A: array[1..100,1..100] of Real;
maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
{заполнение случайными числами, можно вводить вручную}
for i:=1 to n do
for j:=1 to n do
A[i,j]:=-100+random(200);

{поиск максимального по модулю элемента}
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>maxmod then
begin
maxmod:=abs(A[i,j]);
m_i:=i; m_j:=j;
end;

{Печать матрицы и ответа}
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j]:6:1);
writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
{вывод на печать уменьшенной матрицы}
for i:=1 to n do
if (i<>m_i) then
begin
for j:=1 to n do
if (j<>m_j) then write(A[i,j]:6:1);
writeln;
end;
readln;
end.

[Niro]

Владимир163
Существуют программы, которые умеют строить блок-схемы по коду, погуглите, я думаю найдёте.
Вот например - первая страница поиска яндекса:
http://www.twirpx.com/files/software/codeflows/
http://diamfc.ucoz.ru

И если уж выкладываете код - оформляйте его тегом "code"

[Вадим Мошев]

Если по ГОСТу нужно составлять, то можно использовать live.yworks.com/graphity/. Microsoft Office Visio по-моему тоже по стандарту умеет их делать.

Ещё сервисы:
creately.com
lucidchart.com
diagram.ly
gliffy.com
draw.io

................................... ......

[Utkin]

Microsoft Office Visio по-моему тоже по стандарту умеет их делать.

В 2013-м не нашел блоков цикла. Комментарий не по фень-шую и многие другие кошерные вещи. Суть получается такая - накидываете очень быстро. А потом скрепя зубами и матерясь начинаете все обтачивать напильнком. На сегодня не нашел ни одной программы/сервиса точно удовлетворяющих ГОСТу. Основная проблема как уже писал это циклы, но есть и прочие проблемы.

[min@y™]

В 2013-м не нашел блоков цикла.

цикла с параметром?