Сделать анализ задачи!
Задача: Переделать так, чтобы числа от 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.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vladivanko400
23.08.2021 09:19
Байт – это последовательность из восьми бит
К расширениям графических файлов можно отнести gif, bmp, jpg3
К расширениям готовых к исполнению программ можно отнести exe, com, bat

Принтер – устройство кодирования (неверно, устройство вывода)
Клавиатура – устройство ввода (верно)
Монитор – устройство ввода(неверно, вывода)
CD- ROM – устройство  кодирования информации (неверно, ввода-вывода)
 Минимально необходимый набор устройств для работы компьютера содержит системный блок (не пустой, конечно))) ), монитор, клавиатуру.
 Манипулятор «мышь» это устройство ввода
Постоянное запоминающее устройство служит для хранения программ начальной загрузки компьютера и тестирование его узлов.
При отключении компьютера информация стирается из оперативной памяти. 
10 - raskaz.txt
11. Чему равен 1 Мбайт?
1000000 байт (СИ)
1024 Кбайт (IEC)
12.для копирования надо выделить нужный фрагмент
13 не пачкать и не царапать!
14ю когда с файлами работаешь, если у тебя java работает - через браузер запросто, по сетке тоже можно поцепить
16. вирусы пишут специально, они умеют размножаться, заражают другие проги, портят файлы, калечат реестр, шифруют данные, заползают в загрузочные сектора. некоторые незаметно проникают и ожидают команды извне. а некоторые сами себя модифицируют
15. всеми перечисленными зависит от вируса.
17. Поставить файрволл и антивир и периодически обновлять базы данных. НИКОГДА не открывать подозрительные файлы из ненадежных источников. проверять антивиром флешки и полученные файлы перед открытием. делать бэкапы системы и копии важных данных. периодически сканировать комп антивиром.
0,0(0 оценок)
Ответ:
vladmakarchuk80
04.06.2021 03:55

Відповідь:



Пояснення:

1 . обычный режим;  режим Web-документа;  режим разметки страницы;  режим структуры документа;  схема документа;  во весь экран;  режим предварительного просмотра.

2 . режим разметки страницы

3. Enter

4.  1) «Alt» +«0151». Цифры  на цифровой клавиатуре, которая находится справа, при включенном «NumLock».

   2) наберите «2014» и нажмите «Alt+X» –

   3) «Ctrl+Alt+-

   4) «Вставка»\«Символ» \«Другие символы»\«Шрифт»\«(обычный текст)»\«Набор» – «знаки пунктуации»\«Вставить»

5. 1) «Ctrl+-»

   2) символ "-"

6. 1950 =  MCML

   1963 =  MCMLXIII

I - 1

X - 10

C - 100

M - 1000

V - 5

L - 50

D - 500

I - 1 000

V - 5 000

X - 10 000

L - 50 000

C - 100 000

D - 500 000

M - 1 000 0000

7. Клавиши

На один символ влево  

Стрелка "Влево"

На один символ вправо

Стрелка "Вправо"

На один строку вверх

Стрелка "Вверх"

На один строку вниз

Стрелка "Вниз"

На один слово влево

Ctrl + Стрелка "Влево"

На один слово вправо

Ctrl + Стрелка "Вправо"

На один абзац вверх

Ctrl + Стрелка "Вверх"

На один абзац вниз

Ctrl + Стрелка "Вниз"

В начало текущей строки

Home

В конец текущей строки

End

На один экран вверх

Page Up

На один экран вниз

Page Down

В начало экрана

Ctrl + Page Up

В конец экрана

Ctrl + Page Down

В начало документа

Ctrl + Home

В конец документа

Ctrl + End

9.  Установленный на ноутбуке эмулятор мыши (Alt+Shift+NumLock)

Тачпад.

Определенные клавиши на клавиатуре (8.)

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота