Регистрация
anchertow
27.02.2021 21:02
Информатика
Есть ответ 👍

Программисты
с 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.

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

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

Karelina1988
Karelina1988
4,6(7 оценок)
Минус программы если максимальный или минимальный повторяется, то он их тоже не будет считать 

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