Дан одномерный массив, заменить нулями одинаковые элементы

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

Студворк — интернет-сервис помощи студентам

Дан одномерный массив, заменить нулями одинаковые элементы. Поможете?

@vint-81 · 08.12.2014, 20:24

Pascal

const n=10;
var a:array[1..n] of integer;
    i,j,k,tmp:integer;
begin
    randomize;
    writeln('A:');
    for i:=1 to n do 
     begin
      a[i]:=-5+random(11);
      write(a[i]:4)
     end;
    writeln;
    j:=1;
    while j<n do
     begin
      i:=j+1;
      while i<=n do
       begin
        if (a[j]=a[i])and(a[j]<>0)
         then
          begin
           tmp:=a[j];
           a[i]:=0;
           a[j]:=0;
           for k:=i to n do 
            if a[k]=tmp then a[k]:=0
          end;
        inc(i)
       end;
      inc(j)
     end;
    writeln('A'':');
    for i:=1 to n do write(a[i]:4)
end.

@Донкон 0 / 0 / 0 Регистрация: 12.12.2013 Сообщений: 21
		1
	Дан одномерный массив, заменить нулями одинаковые элементы 08.12.2014, 17:05. Показов 2168. Ответов 1 Метки нет (Все метки) Дан одномерный массив, заменить нулями одинаковые элементы. Поможете? 0

Опции темы

Дан одномерный массив, заменить нулями одинаковые элементы

Решение