найти к наибольших

[Timoshka_]

вроде бы простая задача а я не понимаю как сделать((
среди элементов массива Z(m) найти k наибольших (k<<m)
поиск осуществить за один просмотр (паскаль)

[Serge_Bliznykov]

Ну, например, так.
Завести массив из K элементов (например, Biggest).
Заполнить его первыми K элементами из Z
Отсортировать.
дальше в цикле i:=k+1 to m
if Z[i] > любого элемента в массиве Biggest, то вставить его в массив Biggest на место того элемента, больше которого текущее значение, остальные элементы сдвинуть на один (последний выбрасывается)
всё. в массиве Biggest k наибольших элементов (причём в порядке убывания...)

[Timoshka_]

а можно маленькую программу если числа совпадать будут?
их надо убрать же!!!
и как задать число K<<m
можно ли так k:=Trunc(m/2.5);

[Serge_Bliznykov]

а можно маленькую программу если числа совпадать будут?

не понял, что Вы просите... Какую программку?
А если числа будут совпадать, то ничего страшного. Ведь об этом в условии ничего не сказано.
Значит можно решать как Вам удобнее.
например, даны числа 9 8 2 8 3 7 6 5 3
угажите ТРИ наибольших числа?

впрочем, с повторами можно бороться. Просто это немного усложнит код решения...

и как задать число K<<m

а что означает "меньше"-"меньше" ? Намного меньше?
Я думаю, что K должно вводится оператором:
WriteLn('Введите K:');
Readln(K);

можно ли так k:=Trunc(m/2.5);

Так Вы же программист! Хотите задавать K так - задавайте. Лишь бы Вас (и Вашего преподавателя) такой подход устраивал.
я лично не возражаю! :-)

[Timoshka_]

спасибо))
очень благодарна)