Предмет: Информатика,
автор: minimymey
Помогите пожалуйста.
Нужно задать массив целых чисел. Вывести на экран только те значения элементов массива, которые встречаются в нем более одного раза, при этом каждое найденное значение должно быть распечатано столько раз, сколько оно встречается.
Ответы
Автор ответа:
0
program masof;
var ar: array of integer;
i, j, temp, N: integer;
begin
readln(N);
setlength(ar, N+1);
for i:=1 to N do begin readln(ar[i]); end;
for i:=1 to N do begin
temp:=0;
for j:=1 to N do begin if ar[j]=ar[i] then inc(temp); end;
if temp>1 then write(ar[i], ' ');
end;
end.
var ar: array of integer;
i, j, temp, N: integer;
begin
readln(N);
setlength(ar, N+1);
for i:=1 to N do begin readln(ar[i]); end;
for i:=1 to N do begin
temp:=0;
for j:=1 to N do begin if ar[j]=ar[i] then inc(temp); end;
if temp>1 then write(ar[i], ' ');
end;
end.
Интересные вопросы
Предмет: Информатика,
автор: diman10200
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: rihteranna66
Предмет: Биология,
автор: Chuhapipa
Предмет: Геометрия,
автор: damn2013