Задача на min и max

[KREGI]

Всем спасибо за помощь,я сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var A:array[0..4] of integer;
    i,d,q,min,max:integer;
begin
q:=0;
d:=0;
for i:=0 to 4 do
a[i]:=strtoint(stringgrid1.cells[i,0]);
min:=a[0];
max:=a[0];
for i:=0 to 4 do begin
if a[i]<min then begin
   min:=a[i];
   d:=i;
end;
if a[i]>max then begin
   max:=a[i];
   q:=i;
end;
end;
label1.Caption:='min= '+inttostr(min)+' номер элемена '+inttostr(d);
label2.Caption:='max= '+inttostr(max)+' номер элемена '+inttostr(q);
end;
end.

[KREGI]

Всем спасибо за помощь,я сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var A:array[0..4] of integer;
    i,d,q,min,max:integer;
begin
q:=0;
d:=0;
for i:=0 to 4 do
a[i]:=strtoint(stringgrid1.cells[i,0]);
min:=a[0];
max:=a[0];
for i:=0 to 4 do begin
if a[i]<min then begin
   min:=a[i];
   d:=i;
end;
if a[i]>max then begin
   max:=a[i];
   q:=i;
end;
end;
label1.Caption:='min= '+inttostr(min)+' номер элемена '+inttostr(d);
label2.Caption:='max= '+inttostr(max)+' номер элемена '+inttostr(q);
end;
end.

[KREGI]

Спасибо всем за помощь, я сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var A:array[0..4] of integer;
    i,d,q,min,max:integer;
begin
q:=0;
d:=0;
for i:=0 to 4 do
a[i]:=strtoint(stringgrid1.cells[i,0]);
min:=a[0];
max:=a[0];
for i:=0 to 4 do begin
if a[i]<min then begin
   min:=a[i];
   d:=i;
end;
if a[i]>max then begin
   max:=a[i];
   q:=i;
end;
end;
label1.Caption:='min= '+inttostr(min)+' номер элемена '+inttostr(d);
label2.Caption:='max= '+inttostr(max)+' номер элемена '+inttostr(q);
end;
end.

[Sasha_Smirnov]

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

два неодинаковие минимальние зачения?

А кто сказал, что неодинаковые!

Температура, °C: –22 –23 –6 –12 –20 –5 –23 –21

Ряд минимальных значений: –23 –23

Камнем преткновения здесь послужило условие

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

в указанном порядке

Но это просто может быть, например, 2 и 7 января!

Сообщение от min@y™

праздник некрофилов

Тема классная, но недоделанная. В такси не шашечки важны, а чтоб доехало!

Пример на форме в Excel:

[min@y™]

Сёдня праздник некрофилов, штоли?