|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.11.2008, 13:08 | #1 |
Форумчанин
Регистрация: 18.06.2008
Сообщений: 350
|
Нарисуйте пожалуйста блок-схему лёгкой задачки, не знаю как,очень нужно...
Здравствуйте ув.программисты! Нарисуйте пожалуйста блок-схему этой маленькой программки, не знаю как, пожалуйста, меня скоро будут спрашивать.
Вот листинг программы. Program Xai; Uses crt; Var min,i;integer; v1,v2,v3:array[1..5] of integer; Begin ClrScr; writeln; writeln('Введите 5 элементов вектора V1'); for i:=1 to 5 do read(v1[i]); readln; min:=10000; for i:=1 to 5 do begin if v1[i]<min then min:=v1[i]; end; writeln; write('Min='); writeln(min); readln end. |
27.11.2008, 17:49 | #2 |
Пользователь
Регистрация: 21.10.2008
Сообщений: 23
|
Вот блок-схема к твоей проге
|
28.11.2008, 15:27 | #3 |
Форумчанин
Регистрация: 18.06.2008
Сообщений: 350
|
Спасибо большое, что хоть один человек в мире ответил.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нарисуйте блок-схему за деньги | cHEg | Фриланс | 1 | 25.11.2008 18:15 |
Помогите,пожалуйста решить задачу и составить блок схему | ...Оленька... | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.11.2008 10:45 |
Помогите пожалуйста решить задачу!Очень нужно у самой не получается! | Lilu Monechi | Помощь студентам | 2 | 19.05.2008 19:38 |