Напишите Пожалуйста программу через TurboPascal

Дан бинарный массив.Найти минимальный эллемент массива и поменять его с последним

1

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

Лучший Ответ!
2011-10-27T20:33:34+04:00

Паскаль

Откомпилирован в: Pascal ABC

 

program z1;
uses crt;
const m = 50;

//Задаем массив заранее большего значения, что массив не переполнился

var
   n: integer;
   i: integer;
   mas: array [0..m] of integer;
   buf: integer;
   min, imin: integer;
begin
    randomize;  //Запускаем функцию случайного значения
    write(' Введите количество элементов в массиве :  ');

//Вводим количество показываемых элементов
    readln(n);
   
    writeln();
    writeln(' Исходный массив:  ');
    for i := 1 to n do
    begin
         mas[i] := random(100);

//Заполняем массив случайными числами в диапозоне от 0 до 100
         writeln(' ',i,' = ', mas[i]); //Выводим их на печать
    end;
   
    min := mas[1]; //Начало минимального элемента. Предпологаем, что 1-ый элемент минимален
    for i := 2 to n do //Начиная со 2-го сравниваем 1-ый с дургими
    if min > mas[i] then //Если элемент меньше записываем его в минимальный
    begin
          min := mas[i]; //И так сравниваем все элементы друг с другом
          imin := i //Берем индекс минимального для дальнейшего использования
    end;
    buf := mas[n]; //Присваиваем переменной значение последнего элемента
    mas[n] := min; //Присваиваем последний элемент значению минималньго
    mas[imin] := buf; //Теперь место минимальнго занимает значение последнего

    writeln();
    writeln(' Отсоритрованный по правилу, что минимальный элемент в конце:  ');
    for i := 1 to n do
    begin
         writeln(' ',i,' = ', mas[i]); //Выводим весь массив
    end;
end.