накатать прогу на делфи

[бедный_студент]

3. Дан массив состоящий из n элементов.Подсчитайте количество неповторяющихся элементов.Получите новый
массив из этих элементов и расположите их по убыванию.


проблема в том что я языка не знаю и щас остальные 5 разбираю....

[mflat]

program mflat;
const n = 10; // макс. число элементов в массиве
type
  MyArray = array [1..n] of integer; // тип MyArray
var
  a,b: MyArray; // Массивы типа MyArray
      i: byte; 
     k: byte; 
     g: byte; // счётчик
begin
  for i:=1 to n do 
   ReadLn(a[i]);
  for i:=1 to n do
   begin
    for k:=1 to n do
     if k<>i then
       if a[i]<>a[k] then begin
                                 Inc(g);
                                 b[g] := a[i];
                               end;  
   end;  
WriteLn(g);
ReadLn;
end.

Сам не тестировал. но должно работать.
Извиняюсь, не дочитал условие, сейчас исправлю.
Массив сформировали. А по убыванию как сделать не знаю.

[бедный_студент]

и на этом Спасибо, но все же желательно соответствующий условию вариант ...

[бедный_студент]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b,c,n,i:integer
begin //тут он что то ругается [Error] Project2.dpr(10): ';' expected but 'BEGIN' found
readln (n);
for i:=1 to n do
begin
a:=i+i
b:=10;
while a>b do
begin
if (a mod b)=i then writeln(i);
b=b*10;
end;
end;
readln(c);
end.

[AlDelta]

1. Поиск по форуму, задача уже решалась.
2. Читаем правила форума.
3. Название.
4. Закрыто.