|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.11.2010, 15:51 | #1 (permalink) |
Новичок
Регистрация: 21.11.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите составить блок схему.
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. |
21.11.2010, 15:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправлю вам список полезных ссылок Составить блок-схему Помогите пожалуйста составить блок-схему! Помогите написать программу и блок схему в Паскале |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|