Question

Помогите пожалуйста! Пожалуйста, исправьте мою программу так, чтобы работало по условию задачи(делать в pascal.net). Если не знаете как, то напишите пожалуйста свою (решать надо через динамический массив). Задача: Напишите программу, которая находит максимальную и минимальный элементы переданного ей динамического массива(используйте изменяемые параметры).Моя программа:vari,k,n,j:integer;a:array of longint;procedure maxmin(max,min:longint);begink:=a.Length;max:=a[0];min:=a[0];for i:=1 to k-1 dobeginif max a[i] then min:=a[i];end;end;beginread(n);setLength(a,n);for i:=0 to High(a) do begina[i]:=random(8)+1;maxmin(a[i]);end;writeln(max,' ',min);end.

Answer 1

Ответ:

// PascalABC.NET 3.7.2

// Да, именно так выглядит pascal.net.

function MinMax<T>(source: Array of T): (T, T);

 where T: System.IComparable<T>;

 begin

   var max := source.First();

   var min := source.First();

   

   foreach var item:T in source do begin

     if item.CompareTo(max) > 0 then max := item

     else if item.CompareTo(min) < 0 then min := item

   end;

   Result := (min, max);

 end;

 

begin

 var src := ArrRandom();

 src.PrintLn;

 var (min, max) := MinMax(src);

 PrintLn(string.Format('Min, max values of source array is {0}, {1}', min, max));

end.

Объяснение:

постфикс .net указывает на то, что язык имеет поддержку платформы MS.NET. Решение выполнено средствами платформы MS.NET и среды PascalABC.NET 3.7.2

Answer 2

Ваша программа похожа на Pascal, но у вас есть несколько ошибок и неточностей. Вот исправленная версия:

pascalCopy code
program MaxMinArray;

var
  n, i: integer;
  a: array of longint;
  max, min: longint;

procedure FindMaxMin(var a: array of longint; var max, min: longint);
var
  i: integer;
begin
  if Length(a) = 0 then
  begin
    max := 0;
    min := 0;
    exit; // Выход, если массив пустой
  end;

  max := a[0];
  min := a[0];

  for i := 1 to High(a) do
  begin
    if a[i] > max then
      max := a[i]
    else if a[i] < min then
      min := a[i];
  end;
end;

begin
  randomize;
  
  write('Введите размер массива: ');
  read(n);
  
  SetLength(a, n);
  
  for i := 0 to High(a) do
    a[i] := random(8) + 1;

  FindMaxMin(a, max, min);
  
  writeln('Максимальный элемент: ', max);
  writeln('Минимальный элемент: ', min);
end.

В этой программе я добавил процедуру FindMaxMin, которая принимает массив и находит максимальный и минимальный элементы в нем, используя изменяемые параметры var max и var min. Кроме того, я добавил ввод размера массива с клавиатуры для более интерактивной работы с программой.