В массив В записать K

Узнай цену своей работы

Узнать стоимость

Формулировка задачи:

В массив В записать K<L наибольших элементов массива X(L), L <=300.

Решение задачи: «В массив В записать K

textual

Листинг программы

const
Mx=300;
var X, B:array[1..Mx] of integer;
i, K, j, buf, L:integer;
begin
repeat
writeln('Введите L <= 300 , K < L');
readln(L, K);
until (L <= 300) and (K < L);
writeln('Массив Х:');
for i:=1 to L do
    begin
    X[i] := -9 + random(18); 
    write(X[i]:3);
    end;
writeln;
for i:=1 to L-1 do
    for j:=1 to L-i do
        begin
        if X[j] < X[j+1] then
           begin
           buf:=X[j];X[j]:=X[j+1];X[j+1]:=buf;
           end;
        end;
writeln('Массив В');
for i:=1 to K do
    begin
    B[i] := X[i];
    write(X[i]:3);
    end;
end.

ИИ поможет Вам:

---

• решить любую задачу по программированию
• объяснить код
• расставить комментарии в коде
• и т.д

Попробуйте бесплатно