Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.06.2008, 14:18   #1
STIG_E70
 
Регистрация: 18.06.2008
Сообщений: 3
По умолчанию Задача Pascal на массив (нужна помощь)

Задача такая: Дан Массив С(20). Нужно заменить его другим Массивом, при этом if C[i]<0 then тогда произвести замену типа С[i]=B[i] Заранее благодарен...
STIG_E70 вне форума Ответить с цитированием
Старый 18.06.2008, 14:24   #2
OLEG'arh
Пользователь
 
Аватар для OLEG'arh
 
Регистрация: 23.11.2006
Сообщений: 42
По умолчанию

Код:
var
 b,c:array[1..20] of integer;
 i:integer;
begin
{........
заполяешь массивы B и C
........}
For i:=1 to 20 do
  begin
     if c[i]<0 then c[i]:=b[i]
  end;
end.
OLEG'arh вне форума Ответить с цитированием
Старый 18.06.2008, 14:43   #3
STIG_E70
 
Регистрация: 18.06.2008
Сообщений: 3
По умолчанию

Мне и нужно заполнить Массивы B и С Начало и концовку, я знаю, я не догоняю как их заполнить, если можешь напиши СПАСИБО за помощь )))
STIG_E70 вне форума Ответить с цитированием
Старый 18.06.2008, 15:50   #4
OLEG'arh
Пользователь
 
Аватар для OLEG'arh
 
Регистрация: 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.
OLEG'arh вне форума Ответить с цитированием
Старый 18.06.2008, 20:19   #5
STIG_E70
 
Регистрация: 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.
STIG_E70 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь с сортировкой односвязных списков на 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