var m,a:array [-100..100] of integer;
n,j,i,k,count:integer;
begin
write('введите сколько необходимо чисел: ');
read(n);
write('число к: ');
read(k);
//осуществим ввод n элементов и отсортируем по условию в другой массив а
for i:=1 to n do begin
read(m[i]);
if m[i]>k then begin
inc(count);
a[count]:=m[i];
end;
end;
//отсортируем этот массив пузырьковым методом
for i:=1 to count-1 do begin
for j:=1 to count-i do
if a[j] < a[j+1] then
swap(a[j],a[j+1]);
end;
//выводим уже отсортированный массив чисел > к
for i:=1 to count do
write(a[i],' ');
end.
Собака - друг людини. Я люблю собак, тому що це відданий і доброзичливий друг. З собакою можна пограти або навчити її різним командам. Якщо господареві загрожує небезпека, собака буде захищати його навіть ціною власного життя.
Собака привчає до відповідальності, адже за нею необхідно щодня доглядати: годувати, вигулювати, не забувати міняти воду для пиття.
Якщо у людини поганий настрій, йому сумно або у нього щось болить, собака відчуває це і всіляко намагається до своїм господарям, підняти їм настрій.
Я люблю собак, адже вони віддають нам тепло і любов.
Только Английский 25-18=7 человек
Только французский 27 - 18 = 9 человек
Ну а на вопросы не отвечу =))