информатика
Pascal ABC Напишите программу, которая сортирует массив и выводит все элементы массива, которые встречаются ровно K раз. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . В третьей строке записано натуральное число K . Выходные данные Программа должна вывести все элементы массива, которые встречаются ровно K раз, в порядке возрастания, разделив их пробелами. Если таких элементов нет, программа должна вывести число 0. Примеры входные данные 6 1 2 1 2 1 3 2 выходные данные 2
Оставить ответОтвет №1
Var
begin
c:=0;
Read(n);
Read(k);
For i:=1 to n do read(a[i]);
For i:=1 to n-1 do
For j:=n-1 downto i do
If a[j]>a[j+1] then begin
C:= A[j];
a[j]:=a[j+1];
A[j+1]:=c;
End;
For i:=1 to n do begin
For j:=I to n do
If a[i]=a[j] then c:=c+1;
If c=k then write(a[i],` `);
c:=0;
End;
End.
Знаете ответ?