Масивы Опции

[Vlad Sky]

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

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

[Bokul]

Просеять масив

Что означает просеить массив?

[мисс_граффити]

А можно то же самое, но по-русски?
Что значит "просеять"? Отсортировать? Убрать повторяющиеся?

[Archon]

простая задача на массив

[Vlad Sky]

А можно то же самое, но по-русски?
Что значит "просеять"? Отсортировать? Убрать повторяющиеся?

Это означает, что бы все элементы масива не повторялись


Сообщение отредактировано: Vlad Sky - 3.12.2006 4:07

[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.

[мисс_граффити]

Bokul, а в чем принципиальное отличие от того, что лежит по ссылке, приведенной Archon'ом?
ну, имена переменных другие...
вместо

 if fl then

написано

 if b=true then

...
но в общем-то то же самое....