|  12.05.2012 / 10:42 |  | 
| TAPAHbl4    Пользователь 
  Сейчас: Offline 
 Имя: TAPAHbl4Регистрация: 15.01.2012
 
 | Ребят, помогите.К примеру есть массив с числами 1 2 2 3 4 4 5.
 Нужно узнать из скольких уникальных чисел состоит он, здесь это числа 1 2 3 4 5, а их количество 5.
 
 | 
|  12.05.2012 / 11:02 |  | 
| Freddy    Пользователь 
  Сейчас: Offline 
 Имя: ИгорьОткуда: Воронеж
 Регистрация: 30.01.2010
 
 | TAPAHbl4,   const  n = 10;var  arr: array [0..n] of integer;  count, current, i: integer;begin    {sort is there}  //Сортируем массив по возрастанию  current := arr[0];  count := 1;  for i := 1 to n do begin    if (arr[i]<>current) then begin      current := arr[i];      inc(count);    end;  end;  Writeln(count);end.
 | 
|  12.05.2012 / 11:54 |  | 
| TAPAHbl4    Пользователь 
  Сейчас: Offline 
 Имя: TAPAHbl4Регистрация: 15.01.2012
 
 | Freddy, спасибо, я уже нашёл   | 
|  12.05.2012 / 12:01 |  | 
| TAPAHbl4    Пользователь 
  Сейчас: Offline 
 Имя: TAPAHbl4Регистрация: 15.01.2012
 
 | Подскажите, как из массива первый элемент сделать последним, причём все элементы должны сдвинуться
 | 
|  12.05.2012 / 13:52 |  | 
| Naik    Пользователь 
  Сейчас: Offline 
 Имя: %name%Регистрация: 14.03.2010
 
 | TAPAHbl4,  Создаешь еще один массив такого же размера, в него на последнее место ставишь 1 елемент первого массива и дальше переносишь все остальные со здвигом на единицу.
 | 
|  12.05.2012 / 15:00 |  | 
| TAPAHbl4    Пользователь 
  Сейчас: Offline 
 Имя: TAPAHbl4Регистрация: 15.01.2012
 
 | Naik, не. Зачем лишний массив? Просто первую переменную в отдельную переменную записать, потом сдвинуть и присвоить последнему элементу значение временной переменной
 | 
|  15.08.2012 / 12:33 |  | 
| boNNdaR    Пользователь 
  Сейчас: Offline 
 Имя: РомаОткуда: місто Львів
 Регистрация: 01.12.2010
 
 | Напишите HelloWorld,пожалуста.
 | 
|  15.08.2012 / 12:42 |  | 
| ВитаминКО    Супермодератор 
  Сейчас: Offline 
 Имя: ВасилиусОткуда: RZN
 Регистрация: 20.04.2012
 
 | program HelloWorld;__________________begin
 writeln ("Hello, World");
 end.
 
 
   わからない!! | 
|  15.08.2012 / 12:43 |  | 
| ВитаминКО    Супермодератор 
  Сейчас: Offline 
 Имя: ВасилиусОткуда: RZN
 Регистрация: 20.04.2012
 
 | хоть бы самоучитель какой скачал... или тупо сайт открыл, сохранил - и смотри офф__________________
 
   わからない!! | 
|  15.08.2012 / 12:48 |  | 
| XakepPRO    Модератор форума 
  Сейчас: Offline 
 Регистрация: 20.06.2012
 | boNNdaR, предлагаю тебе заняться не pascal'eм. Лучше python    |