Паскаль. P.43. Гнездо задач. Сортировка. Сборник задач по программированию Александра Приходько

6688 Паскаль. P.43. Гнездо задач. Сортировка. Сборник задач по программированию Александра Приходько

Сборник задач по программированию. Старая версия

Приходько А. Н.

по программированию, сервер, интерфейс, класс, prolog, prolog, visual basic, учебный материал

Паскаль. P.43. Гнездо задач. Сортировка

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

P.43.1    Ответы

Определить, что будет в массиве Dragon в конце выполнения следующей программы.

Program AA;
uses
crt, dos;
var
    Dragon : array[1..10] of integer;
    i, j, k : integer;
begin
    Randomize;
    for i:=1 to 10 do Dragon[i]:=Random(100)+i*100;
    while Dragon[10]>0 do begin
        for i:=9 downto 1 do
            Dragon[i+1]:=Dragon[i+1]-Dragon[i];
        for i:=9 downto 1 do
            for j:=1 to i do
                if Dragon[j]>Dragon[j+1] then begin
                    k:=Dragon[j];
                    Dragon[j]:=Dragon[j+1];
                    Dragon[j+1]:=k;
                end;
        Dragon[10]:=Dragon[9];
    end;
end.

69 0