Question

Для заданного массива вычислить и напечатать величины A и n, где A - наибольший элемент массива, n – его порядковый номер. В делфи, в form

Answer 1

Ответ:

const

N = 20; (здесь вводится размерность массива!)

var

a : array [1..N] of integer;

max1 : integer;

nomer : integer;

i : integer;

begin

max1 := a[1];

for i := 1 to N do

if (a[i] > max1) then

begin

max1 := a[i];

nomer := i;

end;

max1 и nomer это наибольший элемент массива и его порядковый номер. используйте их дальше.

end.

Answer 2

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

delphiCopy code
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  arr: array of Integer;
  i, A, n: Integer;
begin
  // Заполните массив значениями
  SetLength(arr, Memo1.Lines.Count);
  for i := 0 to Memo1.Lines.Count - 1 do
    arr[i] := StrToInt(Memo1.Lines[i]);

  // Найдем наибольший элемент и его порядковый номер
  A := arr[0]; // Предположим, что первый элемент наибольший
  n := 1;

  for i := 1 to Length(arr) - 1 do
  begin
    if arr[i] > A then
    begin
      A := arr[i];
      n := i + 1; // Индексы начинаются с 0, поэтому добавляем 1
    end;
  end;

  // Выведем результат
  ShowMessage('Наибольший элемент: ' + IntToStr(A) + #13#10 + 'Порядковый номер: ' + IntToStr(n));
end;

end.

Этот код создает форму с компонентами TMemo для ввода массива и TButton, который выполняет вычисления при нажатии. Вы можете вводить элементы массива в поле TMemo, разделяя их строками. При нажатии на кнопку, код найдет наибольший элемент и его порядковый номер и выведет их в диалоговом окне сообщения.