Одномерный массив

Mymindismy

Дата: Вторник, 09.12.2008, 03:40 | Сообщение # 1

Знакомый

Группа: Пользователи

Сообщений: 16

Репутация: 0

Замечания: 20%

Статус: Offline

Дан целочисленный массив А[n],среди элементов которого есть одинаковые. Создать массив зи различных элементов А[n]. Чтобы в начале были неповторяющиеся цифры, а в конце были ноли..

я вот попыталась....
[uses crt;
var a,b:array [1..100] of integer;
i,j,t,m,n:integer;

begin
clrscr;
writeln('BB.Pazmep macciBa');
read(n);
randomize;
for i:=1 to n do a[i]:=random(10);
for i:=1 to n do writeln(a[i]:3);
for i:=1 to n do begin
for j:=i+1 to n do
if a[i]=a[j] then
begin
b[t]:=j;
m:=t;
t:=t+1;
end;
end;
for t:=1 to m do a[b[t]]:=0;
for i:=1 to n do write(a[i]:3);
end.]

Seqular

Дата: Среда, 10.12.2008, 06:44 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Mymindismy, Код вижу. ЧТо сделать надо?

Поддерживаю также проект сообщество молодых сисадминов

Mymindismy

Дата: Четверг, 11.12.2008, 21:56 | Сообщение # 3

Знакомый

Группа: Пользователи

Сообщений: 16

Репутация: 0

Замечания: 20%

Статус: Offline

ну например массив 1 3 2 6 3 7 2
должно получиться 1 3 2 6 7 0 0
а моя программа делает так 1 3 2 6 0 7 0 вот..

Seqular

Дата: Четверг, 11.12.2008, 22:16 | Сообщение # 4

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Почему бы не сделать примерно вот так:

Code

uses crt;
var a:array [1..20] of integer;
     i,j, k, count: Byte;
     n: byte;

begin
clrscr;
write('Massiv size: '); readln(n);
randomize;
Writeln('Byilo:');
for i:=1 to n do
     Begin
     a[i]:=random(10)+1;
     write(a[i]:3);
     End;
ReadKey;
For i := 1 to n-1 do
     Begin
     For j := i+1 to n do
         Begin
         If (a[i] = a[j]) then
            Begin
            For k := j to n-1 do
                Begin
                a[k] := a[k+1];
                End;
            a[n] := 0;
            End;
         End;
     End;

Writeln;
Writeln('Stalo:');
For i := 1 to n do Write(a[i]:3);
ReadKey;
end.

Поддерживаю также проект сообщество молодых сисадминов

Mymindismy

Дата: Суббота, 13.12.2008, 05:24 | Сообщение # 5

Знакомый

Группа: Пользователи

Сообщений: 16

Репутация: 0

Замечания: 20%

Статус: Offline

огромнейшее спасибо biggrin