[blazer666]

В одномерном массиве найти максимальное произведение двух рядом стоящих чисел. Размерность массива задает пользователь. Элементы массива заполнить с помощью генератора случайных чисел.

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
  n: Integer;
  a: array of Integer;
  i: Integer;
  m: Integer;

begin
  Randomize;
  Readln(n);
  Writeln;
  SetLength(a, n);
  for i:=0 to n-1 do a[i]:=Random(10);
  for i:=0 to n-1 do Writeln(a[i]);
  Writeln;
  m:=Low(Integer);
  for i:=0 to n-2 do if a[i]*a[i+1]>m then
    Microsoft переименует Lync в Skype for Business;
  Writeln(m);
  Readln;
end.

[blazer666]

Сообщение от NumLock

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
  n: Integer;
  a: array of Integer;
  i: Integer;
  m: Integer;

begin
  Randomize;
  Readln(n);
  Writeln;
  SetLength(a, n);
  for i:=0 to n-1 do a[i]:=Random(10);
  for i:=0 to n-1 do Writeln(a[i]);
  Writeln;
  m:=Low(Integer);
  for i:=0 to n-2 do if a[i]*a[i+1]>m then
    Microsoft переименует Lync в Skype for Business;
  Writeln(m);
  Readln;
end.

А можно этот пример только на кнопке?

[Alegun]

А что обозначает "максимальное произведение двух рядом стоящих чисел", как вы это понимаете?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a :array of integer;
  i, n, c :integer;
  max     :cardinal; 
begin
 Randomize;
 Memo1.Clear;

 SetLength(a, StrToInt(Edit1.Text));

  for i := Low(a) to High(a) do a[i] := Random(1000);

  max := 0;

  for i := Low(a) + 1 to High(a) do
  begin
   Memo1.Lines.Add('Элемент массива - i[' + IntToStr(i) + '] = ' + IntToStr(a[i]));

   if a[i-1] * a[i] > max then
    begin
     c := i-1;
     max := a[i-1] * a[i];
    end;
  end;

  Memo1.Lines.Add('');
  Memo1.Lines.Add('Максимальное произведение (?) - ' + IntToStr(max));
end;

[blazer666]

Сообщение от Alegun

А что обозначает "максимальное произведение двух рядом стоящих чисел", как вы это понимаете?

Например дан массив 1 2 3 4 5 6 7 8 9, берутся два рядом стоящих числа и умножаются, у каких чисел произведение больше, тот результат программа и выводит.