|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.01.2018, 18:39 | #1 |
Новичок
Джуниор
Регистрация: 18.01.2018
Сообщений: 1
|
не получается вывести
Если исходная последовательность С1,С2,...,С10 не содержит ни одного элемента, значение которого совпадает со значением какого-либо элемента последовательности Р1,Р2,...,Р10, задать значения элементам Х1,X2,...X10 по правилу X[i]=max(C[i],P[i]).
[NO PARSE]var c: array[1..10]of integer; p: array[1..10] of integer; x: array[1..10]of real; i: integer; flag: boolean; bal1, bal2: text; begin Assign(bal1, 'isdan.txt'); assign(bal2, 'vdan.txt'); reset(bal1); rewrite(bal2); for i := 1 to 10 do read(p[i]); for i := 1 to 10 do read(c[i]); flag := true; i := 1; while(flag = true) and (i < 10) do begin if c[i] = p[i] then begin flag := false; end; inc(i); end; if (flag = false) then begin for i := 1 to 10 do begin if c[i] > p[i] then x[i] := c[i] else x[i] := p[i]; end; write('x:', x[i]); end; end.[/NO PARSE] Последний раз редактировалось никита09; 18.01.2018 в 18:43. |
19.01.2018, 12:05 | #2 |
Пользователь
Регистрация: 02.11.2017
Сообщений: 31
|
Код:
Код:
Последний раз редактировалось gantzboss; 19.01.2018 в 15:44. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не получается вывести данные | demon-sheff | Общие вопросы Delphi | 1 | 04.04.2013 09:24 |
Не получается вывести значения | Azam693 | JavaScript, Ajax | 4 | 09.10.2012 19:37 |
Не получается вывести график | xcripz | Помощь студентам | 1 | 18.10.2011 23:23 |
не получается вывести текст | sum42 | Общие вопросы C/C++ | 15 | 29.11.2008 18:55 |
Не получается вывести график | RECREATOR | Общие вопросы Delphi | 7 | 23.12.2007 01:23 |