одномерный массив

[kokadyyyyyyy]

В общем нужно найти модуль максимального и модуль минимально,то есть числа между ними,и их произведение,в чем ошибка,подскажите ?

так я пишу:https:https://lh6.googleusercontent.com/-A...%2525B9111.jpg
вот что выдает:https://lh3.googleusercontent.com/-D...s1280/2222.jpg

[Mad_Cat]

а зачем выводить a[i*i]?

uses ...........,Math;
{......}
mn:=1;
mx:=1;
for i:=2 to n do begin
if abs(a[i])>abs(a[mx]) then mx:=i;
if abs(a[i])<abs(a[mn]) then mn:=i
end;
P:=1;
for i:=min(mx,mn) to max(mx,mn) do begin
p:=p*a[i];Memo2.lines.Add(FloatToStr(a[i]));end;
{.....}
end;

[Человек_Борща]

Круто! Но у нас принято выкладдывать не работающий код, а не его скрины. Скрины кстати ещё и в галимом качестве.

Минимум и максимум определяется путём перебора и сравнения числа с предыдущим с попутной регистрацией самого большого и самого маленького.

[kokadyyyyyyy]

чем тебе мой скрин не нравиться) спасибо cat но не вышло не пойму ,у же все перепробовала,я кстати борщ так и делаю ,присваиваю мин и мах начальное значение ,если если,тогда и т.д. Кот ты бы мог* объяснить вот это for i:=min(mx,mn) to max(mx,mn) do ?

[Mad_Cat]

Проект выложи! проще будет подсказывать!

[kokadyyyyyyy]

проект ?код в смысле 7))
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
max,min,c,s:real;
a:array [1..4] of Real;

begin
min:=a[1];
max:=a[1];
randomize;
for i:=1 to 4 do
begin
a[i]:=random(10);
Memo1.Lines.Add(Floattostr(a[i]));

begin

if a[i]<(Abs(min)) then min:=a[i];
if a[i]>(Abs(max)) then max:=a[i];

begin

if a[i]>(Abs(min))then
begin
if a[i]<(Abs(max)) then
c:=a[i*i];

Memo2.Lines.Add(FloatToStr(c));
end;
end;

end;
end ;
end;

end. // как выглядил первоначально без исправлений

[Mad_Cat]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: 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 a:array[1..10] of Double;
i:integer;
p:Double;
mn,mx:integer;
begin
memo1.Clear;memo2.Clear;
randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
Memo1.Lines.Add(Floattostr(a[i]));
end;
mn:=1;
mx:=1;
for i:=1 to 10 do begin
if abs(a[i])>abs(a[mx]) then mx:=i;
if abs(a[i])<abs(a[mn]) then mn:=i
end;
P:=1;
for i:=min(mx,mn)+1 to max(mx,mn)-1 do begin
p:=p*a[i];Memo2.lines.Add(FloatToStr(a[i]));end;
Form1.Caption:= FloatToStr(p);
end;

end.

[kokadyyyyyyy]

кот ты с проекта скопировал? у меня выводит ошибку :\
i:=min(mx,mn)+1 to max(mx,mn)-1 -так можно писать?,у меня тут ошибку выдает

[Mad_Cat]

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

[kokadyyyyyyy]

)) спасибо кот