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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2012, 12:34   #1
nniikkyy
Новичок
Джуниор
 
Регистрация: 15.06.2012
Сообщений: 2
Восклицание Использование массивов

Ребяят, помогите с двумя задачками по Pascal...если по первой примерно знаю, то по второй не пойму че как...ооочень нужен код(

1)Определить, сколько чисел входят в данный массив, содержащий m целых чисел, только по одному разу.

2)Дан массив P, содержащий N натуральных чисел. Найти наименьшее натуральное число, непредставимое в виде суммы элементов массива Р. Каждый элемент может входить в сумму не более одного раза.

Наработки по первой задачке есть только:
Код:
Program abc;
uses crt;
const m=10;
 var
 A:array[1..m]of integer;    { исходная последовательность }
 i,j:integer;                 { переменнные для работы с индексами массивов }
 f:Boolean;
begin
  
  // ввод исходных данных
 writeln('введите 10 номеров');
 for i:=1 to 10 do
 readln(A[i]);
 for j:=1 to 10 do
 begin
 f:=False;
 for i:=1 to 10 do
 if i <> j then f:=f or (A[i]=A[j]);
 if not f then
  write(A[j]);
 end;
 readln;
 readkey;
end.
Ооочень прошу, помогите

Последний раз редактировалось Stilet; 15.06.2012 в 13:10.
nniikkyy вне форума Ответить с цитированием
Старый 16.06.2012, 04:51   #2
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

По первой:
сначала сортируешь массив любым известным тебе методом, а потом делаешь так, как сделал Серж вот тут: http://www.programmersforum.ru/showthread.php?t=205023 Только он там считал еще дополнительно количество повторяющихся - тебе это не нужно, так что задача упрощается, цикл сводится к такому:
Код:
  k:= 1;
  for i:=2 to m do if a[i]<>a[i-1] then inc(k);
По второй.. Озвучь, плз, диапазоны величин - сколько чисел в массиве, и какие они. От этого будет зависеть способ решения.
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Старый 16.06.2012, 11:19   #3
nniikkyy
Новичок
Джуниор
 
Регистрация: 15.06.2012
Сообщений: 2
По умолчанию

определенного нету диапазона, ну..от 0 до 10 хотяб, чтобы понять суть)
nniikkyy вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на использование двумерныхх массивов (Pascal) Whitecoat Помощь студентам 0 01.06.2012 22:15
Задача на использование массивов строк на Паскаль. subzero95 Паскаль, Turbo Pascal, PascalABC.NET 9 10.03.2012 23:14
ИСпользование формальных массивов в процедурах Aqua6190 Помощь студентам 2 05.04.2011 10:22
Использование массивов в качестве аргументов подпрограммы (Delphi) flamingo78 Помощь студентам 2 16.12.2010 14:21
использование массивов! ...Оленька... Паскаль, Turbo Pascal, PascalABC.NET 2 22.12.2008 11:02