массив

[schibeki]

Всем привет,помогите с задачей,пожалуйста,вот условие:Дан целочисленный массив размера N(отсортированный по возрастанию или по убыванию).
Найти количество различных элементов в данном массиве.
Вот собственно код паскалевский,но элементы не отсортированы:

 
program Array47;
var
R:integer; // количество различных элементов в данном массиве. 
N:integer;
j,i:integer; // счетчики в цикле 
a: array [1..10] of integer;
bol:boolean; // флаг нахождения элемента 
begin
// ввод данных 
writeln('Введите N (N<=10)');
readln(N);
// ручной ввод значений массива 
for i:=1 to n do begin write('a[',i,']=');readln(A[i]);end;
R:=0; // присвоение начального значения 
for i:=1 to n-1 do // цикл для прохождения по массиву 
begin
bol:=true; // присвоение начального значения 
for j:=i+1 to n do
begin
if (a[i]=a[j])and(i<>j) then bol:=false; //цикл для проверки элементов от определяемого до конца массива. 
end;
if bol then inc(R); // если элемент неимеет похожих элементов подсчитываем его 
end;
// вывод результата 
writeln('количество различных элементов = ',R);
end.

ПОмогите сделать на делфи. я просто не знаю как и куда можно вывести массив.

[Serge_Bliznykov]

массив в Delphi достаточно наглядно выводится (и вводится, кстати, тоже) через компонент TStringGrid


p.s. а зачем Вам НЕОТСОРТИРОВАННЫЙ массив, если в условиях задачи чётко и однозначно даётся ОТСОРТИРОВАННЫЙ?!

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
R:integer; // количество различных элементов в данном массиве.
N:integer;
j,i:integer; // счетчики в цикле
a: array [1..10] of integer;
bol:boolean; // флаг нахождения элемента
begin
// ввод данных
n:=StrToInt(InputBox('Введите N (N<=10)','','0'));
// ручной ввод значений массива
for i:=1 to n do begin A[i]:=StrToInt(InputBox(format('a[%d]',[i]),'','0')); end;
R:=0; // присвоение начального значения
for i:=1 to n-1 do // цикл для прохождения по массиву
begin
bol:=true; // присвоение начального значения
for j:=i+1 to n do
begin
if (a[i]=a[j])and(i<>j) then bol:=false; //цикл для проверки элементов от определяемого до конца массива.
end;
if bol then inc(R); // если элемент неимеет похожих элементов подсчитываем его
end;
// вывод результата
ShowMessage('количество различных элементов = ',R);

end;

end.

Идея ясна?

[schibeki]

Идея ясна,как сделать сортировку именно в данном массиве?

[Stilet]

Попытки поиска примеров сортировки были?
Скажет тут: http://www.programmersforum.ru/showthread.php?t=193547