Сделать анализ задачи!
Задача: Переделать так, чтобы числа от 10 до 6555 сортировались по убыванию и записывались в начало массива.
type mass=array[1..200] of integer;
//перестановка чисел от 10 до 6555 вперед
procedure Forvard(var b:mass;m:integer;var k:integer);
var i,j,x:integer;
begin
k:=0;
for i:=1 to m do
if (b[i]>=10)and(b[i]<=6555)then
begin
k:=k+1;
x:=b[i];
for j:=i downto k+1 do
b[j]:=b[j-1];
b[k]:=x;
end;
end;
//быстрая сортировка первых К чисел
procedure QuickSort(var b:mass; first, last: integer);
var f, l, mid, count: integer;
begin
f:=first;
l:=last;
mid:=b[(f+l) div 2]; {вычисление опорного элемента}
repeat
while b[f]>mid do inc(f);
while b[l] if f<=l then {перестановка элементов}
begin
count:=b[f];
b[f]:=b[l];
b[l]:=count;
inc(f);
dec(l);
end;
until f>l;
if first if f end;
var a:mass;
n,k,i:integer;
begin
randomize;
repeat
write('Введите размер массива от 10 до 200 n=');
readln(n);
until n in [10..200];
writeln('Исходный масссив');
for i:=1 to n do
begin
a[i]:=random(7000);
write(a[i]:5);
end;
writeln;
Forvard(a,n,k);
QuickSort(a,1,k);
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:5);
end.
212
431
Ответы на вопрос:
2 )25/100=1/4} 25/100=1/4} вероятность шаров 25-белые,25-красные,25синие,25зеленые,100-шаров всего 25/100=1/4} 25/100=1/4}
Популярно: Информатика
-
danier216.07.2020 20:22
-
АняГ1120.10.2021 11:05
-
алексей75017.02.2022 13:18
-
1gs122123.01.2023 08:02
-
с1413а28.06.2023 18:54
-
ayratka219.07.2020 02:50
-
Мария830104.01.2021 23:53
-
ЛизаНагайцева0325.02.2023 09:54
-
lizashevchuk66423.12.2022 13:23
-
KewLimp21.10.2020 19:13