Масивы Опции

[Vlad Sky]

Дано масив действительных чисел, елементы которого могут повторяться. Просеять масив. ( все елементы масива не повторяються )

Сообщение отредактировано: Vlad Sky - 2.12.2006 23:49

[Bokul]

uses crt;
const
  n=10;
var
  mas1:array[1..n] of byte;
  mas2:array[1..n] of byte;
  max:byte;{сколько существует различных элементов массива mas1, или размерность mas2}
  b:boolean;
  i,j:byte;
begin
clrscr;
randomize;
writeln('Before');
{Заполняем массив}
for i:=1 to n do
    begin
         mas1[i]:=random(10);
         write(mas1[i],' ');
    end;
{Главный цыкл}
max:=0;
for i:=1 to n do
    begin
         b:=true;
         for j:=1 to max do
             if mas2[j]=mas1[i] then
                b:=false;
         if b=true then
            begin
                 max:=max+1;
                 mas2[max]:=mas1[i];
            end;
    end;
writeln;
writeln('Result : ');
{Выводим полученный массив}
for i:=1 to max do
    write(mas2[i],' ');
readln;
end.