Задача на массив из чисел в Delphi

[Skyes]

Вот программа на эту задачу, но она не работает, подскажите, почему?
program chisla;
{Условие:Пусть даны целые числа A1,A2...,An, среди которых могут быть повторяющиеся.
Составьте новый массив из чисел, которые входят в последовательность по одному разу.}

{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;

var
a, b: array [1..30] of integer;
i, n, k, j: integer;
f: boolean;
begin
setconsolecp(1251);
setconsoleoutputcp(1251);
read(n);
for i:= 1 to n do
read(a[i]);
k:= 0;
for i:= 1 to n do
begin
f:= true;
for j:= 1 to k do
if (a[i] = b[j]) then
f:= false;
if f then
begin
inc(k);
b[k]:= a[i];
end;
end;
for i:= 1 to k do
write(b[i], ' ');
readln;
end.

[ByAlex]

Сообщение от Skyes

Вот программа на эту задачу, но она не работает, подскажите, почему?
program chisla;
{Условие:Пусть даны целые числа A1,A2...,An, среди которых могут быть повторяющиеся.
Составьте новый массив из чисел, которые входят в последовательность по одному разу.}

Вот так, пробуй!

program Project8;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a, b: array [1..30] of integer;
i,raz,k,j,n: integer;
begin
  write('Vvedite razmernost = ');
  read(raz);
  write('Vvedite massive iz ',raz,' elementov = ');
  for i:= 1 to raz do
    read(a[i]);
  k:= 0;
  n:=0;
  for i:= 1 to raz do
  begin
    for j:= 1 to raz do
      if (a[i] = a[j]) and (i<>j) then
        inc(n);
    if n=0 then
    begin
      inc(k);
      b[k]:=a[i];
    end;
    n:=0;
  end;
  for i:= 1 to k do
    write(b[i],' ');
  readln;
  readln;
end.

[Skyes]

Большое вам спасибо.
У меня вот только вопрос есть...
Ввожу размерность, массив, а дальше ничего не выполняется...

[ByAlex]

Сообщение от Skyes

Большое вам спасибо.
У меня вот только вопрос есть...
Ввожу размерность, массив, а дальше ничего не выполняется...

Дак, ты как ввел размерность, например, 10, жми enter, и прога дальше пойдет!

[Skyes]

Ой, извините туплю.
Все понял, программа работает.
Еще раз большое спасибо!

[Skyes]

Возникла проблема при сдаче задачи.
При вводе массива, например 1 1 1 1 1(размерность 5) программа молчит.
Необходимо сделать так, чтобы при вводе одинаковых чисел, программа выдавала сообщение"Массив пустой!"

[Serge_Bliznykov]

Необходимо сделать так, чтобы при вводе одинаковых чисел, программа выдавала сообщение"Массив пустой!"

А Вы зря не разобрали пример кода, который Вам дал ByAlex!
вот за это и поплатились!

В примере кода (c) ByAlex есть переменная k
она отвечает за то, в какую ячейку выходного массива помещать текущее число.
Тем самым, она представляет собой СЧЁТЧИК чисел в выходном массиве.
по строчке кода

for i:= 1 to k do

это наглядно видно.
очевидно, что если хочется выдать сообщение, что массив пустой, то нужно добавить проверку на то, что это переменная равна нулю.
например, так:

 if k=0 then WriteLn('Массив пустой. В исходном массиве нет неповторяющихся чисел!')
 else begin
   WriteLn('полученный массив: ');
   for i:= 1 to k do
        write(b[i],' ');
   WriteLn;
 end; 

 readln;