Дан массив. рассортировать элементы массива по убыванию. program sortirovka; var n, k, z, x : integer; a : array[1..50] of integer; begin write('введи размер массива: '); readln(n); for k: =1 to n do a[k]: =random(10)-7; writeln('исходный массив: '); for k: =1 to n do write(a[k], ' '); for z: =1 to n-1 do for k: =1 to n-z do if a[k] then begin x: =a[k]; a[k]: =a[k+1]; a[k+1]: =x end; writeln; writeln('рассортированный массив: '); for k: =1 to n do write(a[k], ' '); end.

program sortirovka;

var n, k, z, x : integer;

a : array[1..50] of integer;

begin

write('введи размер массива: '); readln(n);

for k:=1 to n do a[k]:=random(10)-7;

writeln('Исходный массив:');

for k:=1 to n do write(a[k],' ');

for z:=1 to n-1 do

for k:=z+1 to n do

if a[k]>a[z] then begin

x:=a[k];

a[k]:=a[z];

a[z]:=x

end;

writeln;

writeln('Рассортированный массив:');

for k:=1 to n do write(a[k],' ');

end.

Реестр и перегруженный диск

Вторая причина торможения компьютера - это конечно же замусоренный реестр и перегруженный системный диск. Если у Вас в реестре Windows много различных записей из-за того, что Вы постоянно устанавливаете и удаляете различные программы, то это также может стать причиной торможения компьютера. Нужно знать, как правильно почистить компьютер, чтобы он не тормозил и не глючил. И начнём мы с реестра.

Чтобы почистить реестр рекомендую использовать простую программу CCleaner. Скачайте, установите и запустите её.

Перейдите в раздел Реестр, убедитесь что здесь стоят все галочки, и нажмите Поиск проблем.

Поиск ошибок в реестре Виндовс

Программа найдёт весь ненужный хлам в реестре и предложит его Очистить. Нажимаем кнопку Исправить и исправляем.

Исправление ошибок в реестре

Повторяем эту процедуру, до тех пор, пока в реестре не будет найдено минимальное количество проблем.

Также нам нужно почистить диск С. Заходим в раздел Компьютер, нажимаем правой кнопкой мыши по системному разделу и выбираем пункт Свойства.

Свойства системного диска

Здесь находим кнопку Очистка диска, и ждём пока программа проанализирует данные и предложит удалить ненужный хлам.

Очистка системного диска

Поиск ненужных файлов

После анализа нам нужно поставить галочки напротив всех пунктов и нажать Ок и Удалить файлы.

Удаление ненужных файлов

Удалить файлы в Очистке диска

А ещё не забудьте очистить папки TEMP. Это временные папки, файлы в которых вообще не нужны.

Заходим в раздел Компьютер - Диск (C:) - Папка Windows - Папка TEMP. То, что внутри, это ненужные файлы, выделяем и удаляем.

Папка TEMP

Также нужно очистить вторую папку ТЕМП. Для этого нажимаем на клавиатуре Win+R, вводим команду %TEMP% и нажимаем Ок.

Команда Выполнить

У нас открывается вторая папка TEMP, эти файлы тоже не нужны. Выделяем их все и Удаляем.

Вторая папка TEMP

Итак второй мы тоже разобрали. Обязательно чистим реестр от хлама и диск от ненужного мусора. Это очень важно!

procedure p(x:integer; var st:string);

type

       name = array[0..9] of String[50];

     const

       s1 : name = (' ноль ',' один ',' два ',' три ',' четыре ',' пять ',' шесть ',' семь ',' восемь ',' девять ');

       s2: name = (' ',' десять ',' двадцать ',' тридцать ',' сорок ',' пятьдесят ',' шестьдесят ',' семьдесят ',' восемьдесят ',' девяносто ');

       s3: name = (' ',' сто ',' двести ',' триста ',' четыреста ',' пятьсот ',' шестьсот ',' семьсот ',' восемьсот ',' девятьсот ');

       s4 : name = (' ',' одиннадцать ',' двенадцать ',' тринадцать ',' четырнадцать ',' пятнадцать ',' шестнадцать ',' семнадцать ',' восемнадцать ',' девятнадцать ');

     var

       s,d,e : Integer;

begin

   s:= x div 100; x:=x mod 100;

   st:=s3[s];

   d:= x div 10; e:=x mod 10;

   if (d=1) and (e<>0) then st:=st+s4[e]

                        else st:=st+s2[d]+s1[e];

end;

var x:integer; st:string;

Begin

    Write('Введите число [0..100] :');

    Readln(x);

    p(x,st);

    writeln(st);

End.

Пример:

Введите число [0..100] : 12

дведнацать

Объяснение: