Дано целое число N – количество элементов массива. Вывести те цифры элементов массива, которые содержатся в каждом единичном разряде.(С помощью множеств).Помогите,пожалуйста
Программа для решения задачи и пример её работы - в прилагаемом файле.
0 votes Thanks 0
Nobunaga
Var ar:array of integer; i,n:integer; IntSet:set of integer; begin; randomize; readln(n); setlength(ar,n+1); writeln('Array:'); for i:=1 to n do begin; ar[i]:=random(100); write(ar[i]:4); IntSet+=[ar[i] mod 10]; end; writeln; writeln('Set:',IntSet); end.
Answers & Comments
Verified answer
Программа для решения задачи и пример её работы - в прилагаемом файле.i,n:integer;
IntSet:set of integer;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(100);
write(ar[i]:4);
IntSet+=[ar[i] mod 10];
end;
writeln;
writeln('Set:',IntSet);
end.