|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.09.2010, 19:59 | #1 |
Пользователь
Регистрация: 04.09.2010
Сообщений: 10
|
Составить блок схему и сделать 3 процедуры.
Помогите плз.
Надо составить по данной программе блок схему и по блог схеме сделать 3 процедуры. Вот сама программа. Program fender; var a:array [1..10] of integer; i,i1,sv:integer; begin for i:=1 to 10 do begin a[i]:=random (10); write(a[i]); end; writeln; for i:=1 to 10 do begin for i1:=1 to 10 do begin if a[i]<a[i1]then begin sv:=a[i1]; a[i]:=sv; end; end; end; for i:=1 to 10 do write(a[i]) end. |
06.09.2010, 21:07 | #2 |
Форумчанин
Регистрация: 21.09.2009
Сообщений: 431
|
на счет 3-ех процедур решили помочить коры ?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составить блок-схему | Any13 | Помощь студентам | 0 | 17.05.2010 17:04 |
составить блок-схему | JOHN1992 | Помощь студентам | 3 | 27.12.2009 14:41 |
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! | ...Оленька... | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.01.2009 09:37 |