Pascalabc, алгоритм и программа

ответ:

язык: pascal.

var

    a: array [1..20] of integer;   {объявляем целочисленный массив на 20 элементов}

    i, min, t, m: integer;   {i - счетчик, min - минимум, t, m - временные переменные}

begin  

{рандом 20 чисел в диапазоне [-20; 12]}

  randomize;  

  for i: =1 to 20 do

    a[i]: =random(33)-20;

    min: =a[1];   //присваиваем минимуму первый элемент.

{цикл начинается с 2, чтобы не делать лишнюю итерацию}

  for i: =2 to 20 do  

  begin

{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}

    if min > a[i] then

    begin

    min: =a[i];

    m: =i;

    end;

  end;

{выводим старый массив}

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

  for i: =1 to 20 do

    writeln(a[i]);

{меняем местами последний элемент с минимальным}

  t: =a[20];

  a[20]: =min;

  a[m]: = t;

{выводим новый массив}

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

  for i: =1 to 20 do

    writeln(a[i]);

end.

Циклические структуры - это алгоритмы, в которых предусмотрено многократно повторяющееся выполнение одного и того же действия(последовательности действий). Кол-во повторений зависит от заданным пользователем или компьютером значением.