Поиск одинаковых элементов в массивеПусть дан массив n чисел , которые могут принимать значения от 1 до n, найти число одинаковых элементов в массиве.
Во входном файле в первой строке n - число элементов в массиве, во второй строке - массив, в выходном файле записаны числа по порядку, от 1 до n их встречи в массиве
Пример
input.txt
|
output.txt
|
3
1 1 2
|
2 1 0
|
5
2 1 3 2 3
|
1 2 2 0 0
|
Текст программы
Type MyArray=Array[1..10] of integer; var n, k, i, j: integer; A : MyArray; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output);
readln (n); for i:=1 to n do
read(A[i]);
for i:=1 to n do write (A[i],' ');
writeln;
for i:=1 to n do begin k:=0; for j:=1 to n do begin if A[j]=i then k:=k + 1; end; write (k,' '); end; close(input); close(output); end.
|