|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.06.2008, 14:18 | #1 |
Регистрация: 18.06.2008
Сообщений: 3
|
Задача Pascal на массив (нужна помощь)
Задача такая: Дан Массив С(20). Нужно заменить его другим Массивом, при этом if C[i]<0 then тогда произвести замену типа С[i]=B[i] Заранее благодарен...
|
18.06.2008, 14:24 | #2 |
Пользователь
Регистрация: 23.11.2006
Сообщений: 42
|
Код:
|
18.06.2008, 14:43 | #3 |
Регистрация: 18.06.2008
Сообщений: 3
|
Мне и нужно заполнить Массивы B и С Начало и концовку, я знаю, я не догоняю как их заполнить, если можешь напиши СПАСИБО за помощь )))
|
18.06.2008, 15:50 | #4 |
Пользователь
Регистрация: 23.11.2006
Сообщений: 42
|
Uses Crt;
var b,c:array[1..20] of integer; i:integer; begin ClrScr; For i:=1 to 20 do b[i]:=random(40)-20; c:=b; For i:=1 to 20 do begin if c[i]<0 then writeln(b[i]); end; readln; end. |
18.06.2008, 20:19 | #5 |
Регистрация: 18.06.2008
Сообщений: 3
|
Огромное спасибо OLEG'arh все сделал, немного изменил твою.... вот что получилось, вроде все работает
Условие: Из элементов массива С(20) сформировать новый массив, содержащий только отрицательные элементы. Program Mas; Const N=20 Var i,m:integer; C:array [1..N] of integer; CN:array[1..N] of integer; Begin Writeln('Input Mas C'); For i:=1 to N do readln(C[i]); m:=0; For i:=1 to N do If C[i]<0 then Begin m:=m+1; CN[m]:=C[i]; end; Writeln('Output Mas CN'); For i:=1 to m do Write(CN[i],' '); readln; End. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь с сортировкой односвязных списков на Pascal | Lesowik | Помощь студентам | 2 | 22.05.2011 06:14 |
Нужна помощь Pascal | SweetOpium | Помощь студентам | 13 | 28.05.2008 18:11 |
Pascal, нужна помощь с меню заданной конфигурации | Хоб | Помощь студентам | 1 | 12.02.2008 09:26 |
Двухмерный массив (нужна помощь) | brit | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 7 | 07.05.2007 04:03 |