Question

Определить максимальный элемент в введённом с клавиатуры массиве в среде Delphi.

Answer 1

Program t_1;   const size=100;   var a:array[1..size] of integer; i,n:integer;procedure quicksort(m1,t1:integer);   var i1,j1,x1,w:integer; begin   i1:=m1;   j1:=t1;   x1:=a[(m1+t1)div 2];   repeat      while a[i1]<x1 do inc(i1);      while a[j1]>x1 do dec(j1);      if i1<=j1 then          begin            w:=a[i1];                   a[i1]:=a[j1];              a[j1]:=w;                  inc(i1);                    dec(j1);             end      until i1>j1;      if m1<j1 then quicksort(m1,j1);      if i1<t1 then quicksort(i1,t1);end;begin    readln(n);    for i:=1 to n do       read(a[i]);    quicksort(1,n);    writeln(a[n]);end.

Answer 2

Для определения максимального элемента в массиве в среде Delphi, вы можете использовать следующий код:

delphiCopy code
program MaxElement;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  arr: array of Integer; // объявляем динамический массив
  i, n, maxElement: Integer;

begin
  Write('Введите размер массива: ');
  ReadLn(n);

  SetLength(arr, n); // устанавливаем длину массива

  for i := 0 to n - 1 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

  maxElement := arr[0]; // предполагаем, что первый элемент максимальный

  for i := 1 to n - 1 do
  begin
    if arr[i] > maxElement then
      maxElement := arr[i]; // обновляем максимальный элемент
  end;

  WriteLn('Максимальный элемент в массиве: ', maxElement);

  ReadLn;
end.

Программа сначала запрашивает у пользователя размер массива n, затем заполняет массив элементами, после чего находит максимальный элемент и выводит его на экран. Обратите внимание, что в данном коде используется динамический массив (array of Integer), что позволяет удобно управлять размером массива во время выполнения программы.