1. напишите подробный комментарий к каждой строке 2. Ответьте на вопрос: «Какую задачу решает этот алгоритм?».

Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;

Begin

Write('Введите количество элементов: '); ReadLn(N);

For I := 1 To N Do

Begin

Write('Введите A[', I, '] '); Readln(A[I]);

End; WriteLn;

For I := 1 To N - 1 Do

Begin

K := I;

For J := I + 1 To N Do If A[J] <= A[K] Then K := J;

Pr := A[I]; A[I] := A[K]; A[K] := Pr;

End;

For I := 1 To N Do Write(A[I], ' ');

End.

1

Ответы и объяснения

2013-04-20T16:20:02+00:00

Var {начало объявления переменных}

N, I, J, K, Pr : Integer; {переменные целочисленного типа}

A : Array [1..30] Of Integer; {массив целочисленного типа}

Begin {нанало кода знаменуется ключевым словом begin}

Write('Введите количество элементов: '); {вывод строки в скобках на экран с переходом  на следующую строку}

ReadLn(N); {считывание значения с клавиатуры}

   For I := 1 To N Do {цикл с шагом 1}

    Begin {код цикла}

     Write('Введите A[', I, '] '); {вывод строки без переноса}

Readln(A[I]); {считывание значения с клавиатуры}

    End;{конец кода цикла}

WriteLn; {переход на следующую строку}

      For I := 1 To N - 1 Do {цикл с шагом 1}

    Begin {код цикла}

     K := I; {присваивание значения одной переменной к другой}

     For J := I + 1 To N Do {цикл с шагом 1}

If A[J] <= A[K] Then {оператор условия}

K := J;{присваивание значения одной переменной к другой}

     Pr := A[I];{присваивание значения одной переменной к ячейке массива}

A[I] := A[K];{присваивание значения одной ячейки массива к другой}

A[K] := Pr;{присваивание значения ячейки массива к переменной}

    End;{конец кода цикла}

    For I := 1 To N Do {цикл с шагом 1}

Write(A[I], ' '); {вывод значения ячейки i массива A(в строчку)}

  End.{конец кода}