Question

Помогите пожалуйста. На Паскале написать программу с подпрограммой. Дано: массивы I(11), K(11). Сформировать массив М (11), элементы которого вычисляются по формулеM j= I j+ K j (j=1,11). Массивы I,K предварительно реорганизовать следующим образом: на первом месте, в данных массивах должен стоять элемент с минимальным значением . поиск минимального элемента массива и реорганизацию массива оформить в виде подпрограммы. Если можно полностью пожалуйста расписать

Answer 1

PROGRAM B01;

CONST
    max = 11;
TYPE
    vector = array[1..max]of integer;
VAR
    M, I, K:vector;
    j:byte;

{ Массивы I,K предварительно реорганизовать следующим образом: на первом
месте, в данных массивах должен стоять элемент с минимальным значением}
procedure reorganize_vector(var vt:vector);
var   i, j:byte;
      min, tmp:integer;
      
begin
  // вначале ищем минимальный элемент и запоминаем его место в массиве
  j:=1;//
  min:=vt[1];//назначаем наименьшим - первый элемент
  for i:=2 to max do
    if (min>vt[i]) then begin
      min:=vt[i];
      j:=i;//индекс наименьшего числа
    end;
    
  // теперь меняем местами первый элемент массива с наименьшим числом
  tmp := vt[1];//запоминаем значение первого элемента
  vt[1] := min;//меняем его на наименьший элемент
  vt[j] := tmp;//на место наименьшего ставим значение из первого элемента
end;

// процедура для вывода массива на экран
procedure print_vector(var vt:vector);
var j:byte;
begin
  for j:=1 to max do
    write(vt[j]:6);
  writeln(' ');
end;


BEGIN
  writeln('Дано:');

  //заполняем массивы случаынйми данными
  randomize;
  for j:=1 to max do begin
    I[j]:=random(-128,127);  
    K[j]:=random(-128,127);  
  end;

  //выводим их на экран
  write('массив I[',max,']: ');
  print_vector(I);
  write('массив K[',max,']: ');
  print_vector(K);

  writeln(' ');
  writeln('Реорганизовать массивы так, чтобы на первом месте ');
  writeln('должен стоять элемент с минимальным значением');

  reorganize_vector(I);
  reorganize_vector(K);

  write('массив I[',max,']: ');
  print_vector(I);
  write('массив K[',max,']: ');
  print_vector(K);

  writeln(' ');
  writeln('Сформировать массив М[',max,'], элементы которого вычисляются');
  writeln('по формуле M[j] = I[j] + K[j]');

  for j:=1 to max do
    M[j] := I[j] + K[j];

  write('массив M[',max,']: ');
  print_vector(M);
END.

Answer 2

Конечно, вот пример программы на Pascal, включая подпрограмму для поиска минимального элемента массива и реорганизации массивов I и K:

pascalCopy code
program Main;

const
  N = 11; // Размер массивов

type
  TMyArray = array[1..N] of Integer;

var
  I, K, M: TMyArray;

// Подпрограмма для поиска минимального элемента в массиве и его индекса
procedure FindMinElementIndex(const A: TMyArray; var MinElement, MinIndex: Integer);
var
  i: Integer;
begin
  MinElement := A[1];
  MinIndex := 1;
  for i := 2 to N do
  begin
    if A[i] < MinElement then
    begin
      MinElement := A[i];
      MinIndex := i;
    end;
  end;
end;

// Подпрограмма для реорганизации массивов I и K
procedure ReorganizeArrays(var I, K: TMyArray);
var
  MinElement, MinIndex: Integer;
  TempArray: TMyArray;
  i: Integer;
begin
  FindMinElementIndex(I, MinElement, MinIndex);

  // Копируем исходные массивы
  TempArray := I;

  // Переносим минимальный элемент в начало массивов
  I[1] := MinElement;
  K[1] := K[MinIndex];

  // Заполняем остальные элементы
  for i := 2 to N do
  begin
    if i <> MinIndex then
    begin
      I[i] := TempArray[i - 1];
      K[i] := K[i - 1];
    end;
  end;
end;

// Основная программа
begin
  // Заполняем массивы I и K произвольными значениями
  // Здесь можно добавить код для заполнения массивов I и K, например, с клавиатуры или случайными значениями.

  // Вызываем подпрограмму для реорганизации массивов I и K
  ReorganizeArrays(I, K);

  // Вычисляем элементы массива M
  for i := 1 to N do
  begin
    M[i] := I[i] + K[i];
  end;

  // Выводим массив M
  writeln('Массив M:');
  for i := 1 to N do
  begin
    writeln(M[i]);
  end;
end.

Примечание: Этот пример предполагает, что вы заполните массивы I и K перед вызовом подпрограммы.