Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А

@Досик · Регистрация: 17.12.2012

Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А.

@CodeR · 19.12.2012, 12:46

Pascal

Const n=12;
Var A,B:array[1..n] of integer;
    i,j,m,k:byte;
Begin
    Randomize;
    writeln('Массив A');
    For i:=1 to n do
    Begin
      A[i]:=random(11)-5;
      write(A[i]:3);
    End;
    m:=0;
    For i:=1 to n do
    Begin
      k:=0;
      For j:=1 to n do
       if A[i]=A[j] then inc(k);
      if k=1 then 
      Begin
        inc(m);
        B[m]:=A[i];
      End;
    End;
    writeln;
    writeln('Массив B');
    For i:=1 to m do
     write(B[i]:3);
    readln;
end.

@Досик 0 / 0 / 0 Регистрация: 17.12.2012 Сообщений: 9
		1
	Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А 18.12.2012, 22:23. Показов 2200. Ответов 1 Метки нет (Все метки) Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А

Решение