|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2011, 21:31 | #1 |
Форумчанин
Регистрация: 31.10.2011
Сообщений: 118
|
Не могу дорисовать блок схему
вот программа,сама блок схема в документе
program bd; var a:array[1..10]of integer; i,s:integer; begin s:=0; for i:=1 to 10 do begin read(a[i]); if a[i]<0 then s:=s+1; if (a[i]>=0)and(a[i]<=10) then a[i]:=a[i]*3;end; writeln(s); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построить блок схему | Антон) | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 21.11.2011 16:52 |
Составить блок-схему | Andi1 | Помощь студентам | 1 | 06.10.2010 00:06 |
Не могу составить блок-схему алгоритма и программу | pas9462 | Фриланс | 4 | 02.03.2010 21:48 |
Не могу нарисовать блок-схему маленькой программы | prikolist | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 25.11.2008 23:40 |