Народ помогите составить блок схему к этой программе. Скоро просто сессия сделать не могу просто .
Program lab5;
uses crt;
const n=10;
m=20;
var a:array[1..n,1..m] of integer;
i,j:byte;
sm,mn,c:integer;
imn:byte;
begin
clrscr;
randomize;
writeln('Massiv:');{создали массив}
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
{собственно алгоритм}
begin
for i:=1 to n do
begin
c:=0;
for j:=1 to m do
c:=c+a[i,j];
end;
end;
mn:=c;
imn:=1;{принимаем за минимум самое большое число типа integer}
for i:=2 to n do{идем по строкам}
begin
sm:=0;{сначала сумма в строке=0}
for j:=2 to m do{идем по строке}
sm:=sm+a[i,j];{суммируем ее элементы}
if sm<mn then{если сумма в данной строке меньше чем предыдущий минимум}
begin
mn:=sm;{то это минимум}
imn:=i;{запомним номер строки}
end;
end;
writeln('Minimalnaya summa v stroke ',imn,' summa=',mn);
readln
end.