Поиск минимального (максимального) элемента массива

[Radamant]

Люди как создать программу чтобы она одновременно считала и минимальные и максимальные элементы массива??? вроде бы с помощью двух stringGrid...но как именно???
заранее спс

[Radamant]

это в Delphi...если чё

[Sm1Le]

А нормально написать Слабо ?

Если речь идет чисто про поиск без Вывода и Ввода То зачем СтригГрид а если нужен Ввод и Вывод ТО напишите как именно, а размер массива ? !

[Radamant]

Ну вот по такой схеме,только это чисто для нахождения минималки,а надо и мин и макс вместе в одной проге!!!
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
StringGridl: TStringGrid;

procedure ButtonlClick(Sender: TObject); private
{ Private declarations )

public
{ Public declarations }

end;


var
Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.ButtonlClick(Sender: TObject);

const
SIZE=5;

var
a:array[l..SIZE]of integer; // массив целых
min:integer; // номер минимального элемента массива
i:integer; // номер элемента, сравниваемого с минимальным

begin
// ввод массива for i:=1 to SIZE do

a[i]:=StrToInt(StringGridl.Cells[i-1,0]);

// поиск минимального элемента

min:=1; // пусть первый элемент минимальный

for i:=2 to SIZE do

if a[i]< a[min]then min:=i;

// вывод результата

label2.caption:='Минимальный элемент массива:'
+IntToStr(a[min] +#13+'Номер элемента:'+ IntToStr(min);

end;

end.

[alex_fcsm]

поиск min max на Паскале

uses crt;
const n=50;
var i,j,min,max:integer;
    a:array[1..n] of integer;
    
begin
clrscr;
for i:=1 to n do
begin
 a[i]:=random(20);
 write(a[i]:3);
end;
max:=1;min:=1;
writeln;
for i:=2 to n do
 if a[i]>a[max] then max:=i
    else if a[i]<a[min] then min:=i;
Writeln(max,'--',min)
end.

[Radamant]

НУЖНО DELPHI!!!!

[Sm1Le]

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
StringGridl: TStringGrid;

procedure ButtonlClick(Sender: TObject); private
{ Private declarations )

public
{ Public declarations }

end;


var
Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.ButtonlClick(Sender: TObject);

const
SIZE=5;

var
a:array[l..SIZE]of integer; // массив целых
min:integer; // номер минимального элемента массива
i:integer; // номер элемента, сравниваемого с минимальным

begin
// ввод массива for i:=1 to SIZE do

a[i]:=StrToInt(StringGridl.Cells[i-1,0]);

// поиск минимального элемента

min:=1; // пусть первый элемент минимальный
max:=1;
for i:=2 to SIZE do

if a[i]< a[min]then min:=i
else
if a[i]> a[max]then max:=i
// вывод результата

label2.caption:='Минимальный элемент массива:'
+IntToStr(a[min] +#13+'Номер элемента:'+ IntToStr(min);
label3.caption:='Макс. элемент массива:'
+IntToStr(a[max] +#13+'Номер элемента:'+ IntToStr(max);
end;

end.

Вот типа такого ....

[alex_fcsm]

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

НУЖНО DELPHI!!!!

А в Delphi никак самому не перевести?

[Radamant]

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

А в Delphi никак самому не перевести?

перевести...это можно!!!

[Sm1Le]

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

перевести...это можно!!!

7 пост посмотри !!!