01.04.2011, 20:18 | #1 (permalink) |
Новичок
Регистрация: 01.04.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Очень нужна помощь профессионалов.
Задача. Вводится длина одномерного массива (вектора) и значения его элементов. Вводится дополнительный массив разрешенных значений. Составить массив из элементов исходного массива, имеющих неразрешенные значения. Вывести результативный массив на экран. |
01.04.2011, 20:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Встречал подобные посты ранее, вы можете их прочитать Очень нужна помощь: раздать интернет двум ПК Очень нужна помощь по подключению светодиодов Очень очень нужна помощь, прямо сейчас |
01.04.2011, 21:10 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
К сожалению, помочь ничем не можем. Видите ли, экстрасенсы поразъехались кто куда, а нам, обычным людям, проникнуть в тайну языка программирования, на котором следует выполнить задание, невозможно. Извините.
|
01.04.2011, 21:18 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
01.04.2011, 21:40 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Например, так:
Код:
CONST P:Array[1..10] of Byte=(0,3,4,7,11,12,13,15,8,19); var A,F:Array[1..1000] of Word; i,j,k,N:Byte; b:boolean; BEGIN Write('Permitted values: '); For i:=1 to 10 do Write(P[i]:4); WriteLn; WriteLn; Write('N(<1000)= '); ReadLn(N); Randomize; Writeln; WriteLn('Initial array:'); For i:=1 to N do begin A[i]:=Random(N); Write(A[i]:8); end; WriteLn; WriteLn; WriteLn('Forbidden elements:'); k:=0; For i:=1 to N do begin b:=true; For j:=1 to 10 do If A[i]=P[j] then b:=false; If b then begin k:=k+1; F[k]:=A[i]; Write(F[k]:8); end; end; WriteLn; ReadLn; END. |
01.04.2011, 22:21 | #9 (permalink) |
Новичок
Регистрация: 01.04.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
я надеюсь. ещё раз большое спасибо.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
паскаль, помощь, решение. |
|
|