Question

Написать текст программы в которой из табличной величины от 1 до 50 найти минимальное и поменять его с первым (LAZARUS)

Answer 1

program minPomeniatiSPervam;

type Massiv=array[1..50]of integer;

var v: Massiv;

   n,i, minim, indmin, temp: integer;

begin

 write('n='); read(n);

 writeln(' vvedi ',n,' cisel: ');

 read(v[1]); minim:=v[1]; indmin:=1;

 for i:=2 to n do

   begin

      read(v[i]);

      if v[i]<minim  then begin minim:=v[i]; indmin:=i; end;

   end;

 temp:=v[1]; v[1]:=v[indmin]; v[indmin]:=temp;

 writeln('new Massiv: ');

 for i:=1 to n do

   write(v[i],'  ');

end.

Answer 2

Для решения этой задачи можно использовать язык программирования Pascal в среде разработки Lazarus. Вам потребуется создать процедуру или функцию для нахождения минимального элемента в массиве и процедуру для обмена элементов.

Вот пример программы, которая решает данную задачу:

pascalCopy code
program MinValueSwap;

const
  TableSize = 50;

type
  TableType = array[1..TableSize] of Integer;

var
  Table: TableType;

procedure Swap(var a, b: Integer);
var
  temp: Integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

function FindMin(const arr: TableType): Integer;
var
  i, minIndex: Integer;
begin
  minIndex := 1;
  for i := 2 to TableSize do
  begin
    if arr[i] < arr[minIndex] then
      minIndex := i;
  end;
  Result := minIndex;
end;

procedure Main;
var
  i, minIndex: Integer;
begin
  { Заполняем таблицу числами от 1 до 50 }
  for i := 1 to TableSize do
    Table[i] := i;

  { Находим индекс минимального элемента }
  minIndex := FindMin(Table);

  { Меняем минимальный элемент с первым }
  Swap(Table[1], Table[minIndex]);

  { Выводим результаты }
  writeln('Массив после замены:');
  for i := 1 to TableSize do
    write(Table[i], ' ');
end;

begin
  Main;
end.

Программа создает массив Table размером 50 и заполняет его числами от 1 до 50. Затем она находит индекс минимального элемента в массиве, меняет этот элемент с первым и выводит результаты.