|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.02.2014, 23:28 | #11 |
Регистрация: 27.12.2013
Сообщений: 8
|
var b,c:real;
a,n,r:integer; i:boolean; m:array[0..t] of real; begin r:=0; writeln('Ââåäèòå ÷èñëî b è n'); write('b=');readln(b); write('n=');readln(n); writeln('Ââåäèòå ïîñëåäîâàòåëüíîñòü ÷èñåë'); while r<n do begin read(c); writeln(' '); m[r]:=c; r:=r+1; end; i:=true; for a:=0 to (n-1) do begin if (b<m[a]) and (i) then begin writeln(b); writeln(m[a]); i:=false; continue end; writeln(m[a]); end; if b>(m[n-1]) then writeln(b); end. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на последовательность 2 | maratius | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 12.11.2013 16:32 |
Задача на последовательность | maratius | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 11.11.2013 18:31 |
Задача на последовательность | makskovalko | Помощь студентам | 5 | 21.10.2013 22:41 |
Задача Последовательность. | olimpiadnik | Помощь студентам | 2 | 14.01.2011 09:13 |
задача на последовательность | tcjkjl | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 13.12.2010 13:48 |