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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2011, 15:42   #1
TaiPaN
 
Регистрация: 15.12.2010
Сообщений: 6
Вопрос модификация одномеpных массивов(паскаль)

Удалить из последовательности элементы, которые могут быть
получены суммой двух любых элементов массива.
TaiPaN вне форума Ответить с цитированием
Старый 19.01.2011, 15:58   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
var a:array[1..100] of integer;
i,k,j:integer;
f:boolean;
n:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
begin
write('[',i,']=') ;
readln(a[i]);
end;
Writeln('old');
for i:=1 to n do
write(a[i]:6);
i:=1;
while i<=n do
begin
f:=false;
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i]=a[j]+a[k] then begin f:=true;break;end;
if f then begin
for k:=i to n do
a[k]:=a[k+1];
n:=n-1;
end
else inc(i);
end;
Writeln;
Writeln('New');
for i:=1 to n do
write(a[i]:6);
readln;
end.
результат
Цитата:
n=5
[1]=1
[2]=2
[3]=1
[4]=2
[5]=1
old
1 2 1 2 1
New
1 1 1
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 19.01.2011, 16:12   #3
TaiPaN
 
Регистрация: 15.12.2010
Сообщений: 6
По умолчанию

Спасибо большое!)
TaiPaN вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Обработка массивов daniluk Паскаль, Turbo Pascal, PascalABC.NET 3 09.01.2011 00:51
Паскаль. Обработка массивов. Pascaler Помощь студентам 13 19.04.2010 19:08
Умножение массивов Паскаль+АСМ xVxSeRGxVx Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 24 21.02.2010 14:11
Паскаль,формирование массивов. Amenus Помощь студентам 4 10.03.2009 20:33