mihaispr
Administrator
 Inregistrat: acum 17 ani
Postari: 2142
|
|
{PR.3M/211 Sa se scrie un program care determina multimea(elemente distincte) formata din componentele unui vector de dimensiune n} var n,i,dublura:integer; a,b:array[1..100] of integer; begin write('n=');readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]) end; for i:=1 to n do write(a[i],' '); writeln; for i:=1 to n do dublura:=a[i]; for i:=2 to n do if a[i]=dublura then dublura:=a[i]; write('numerele duble sunt=',dublura); readln end.
|
|