Программисты
с pascal
написать сортировку массива методом простого выбора
через процедуры(разбить программу на блоки)
на подобии этого :

program pr_81;
uses crt;
const n=20;
type mass=array [1..n] of integer;
var m: mass; kod: integer;
k: integer;
procedure zp(var a: mass; k: integer);
var i: byte;
begin
for i: =1 to k do
a[i]: = random(5); //-random(11);
end;
procedure ms(var a: mass; k: integer);
var i: byte;
begin
for i: =1 to k do
write(a[i]: 4);
writeln;
end;
procedure sr( var a: mass; k: integer);
var j,i,h: integer; b: mass;
begin
for i: =1 to k do b[i]: =-1000;
for i: =1 to k do begin
h: =0;
for j: =1 to k do
if a[i]> a[j] then inc(h);
while (h+1< =k)and(a[i]=b[h+1]) do inc(h);
b[h+1]: =a[i];
end;
a: =b;
end;
function po(a: mass; k: integer): boolean;
var i,q,z: integer;
begin
write('введите удаляемое число');
po: =false;
while a[i]< > 0 do begin
if (a[i]=q) then begin po: =true; z: =i end;
write(z);
end;
end;
procedure menu;
begin
writeln('1.заполнение массива');
writeln('2.вывод массива');
writeln('3.сортировка массива');
writeln('4.удаление');
writeln('5.exit');
end;
begin
write('введите количество элементов=');
read(k);
repeat
menu;
readln(kod);
case kod of
1: zp(m,k);
2: ms(m,k);
3: sr(m,k);
4: po(m,k)
end;
until kod=5;
end.

110

381

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

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

05gazieva05

Информатика

4,8(73 оценок)

Лично для меня, билл гейтс - лучший представитель it-отрасли. он основал компанию microsoft в 1975 году. я считаю, что именно после появления этой компании, it-отрасль начала быстрый рост.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.