30.08.2014, 17:49 | #1 (permalink) |
Новичок
Регистрация: 08.08.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок-схема
program q; readln(b); for i:=1 to b do begin readln(a); Writeln(f1,a,' '); end; Reset(f1); while not Eof(f1)do begin Readln(f1,m); if m<0 then Writeln(f3, m,' ') else Writeln(f2, m,' '); end; reset(f2); write('Polojitelnie chisla: '); while not Eof(f2)do begin Readln(f2,m); write(m,' '); end; writeln; reset(f3); write('Otricatelnie chisla: '); while not Eof(f3)do begin Readln(f3,m); write(m,' '); end; Close(f1); Close(f2); Close(f3); readln; end. |
30.08.2014, 17:49 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение вашего вопроса возможно скрывается тут Блок-схема Блок-схема 1 Блок-схема 2 Блок-схема |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|