Регистрация
daryia210407
13.07.2020 13:18
Информатика
Есть ответ 👍

Выберите ложные ответы

259
452
Посмотреть ответы 1

Ответы на вопрос:

KriSha11
KriSha11
4,8(64 оценок)
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.

Популярно: Информатика