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 |