Помогите составить блок схему.
Народ помогите составить блок схему к этой программе. Скоро просто сессия сделать не могу просто .
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. |
Часовой пояс GMT +4, время: 17:02. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.