While:найти номер эл-та последовательности

← →
minutka17 (2007-04-10 06:07) [0]

В общем, дана последовательность натуральных чисел, за которой следует 0. Нужно найти порядковый номер наименьшего элемента последовательности. HELP ME!!!!! plz...

← →
vasIZmax © (2007-04-10 06:37) [1]

То что в 6 утра пришло в голову
procedure TForm1.Button1Click(Sender: TObject); const mmm: array [0..5] of integer=(2,1,4,2,5,0); var i,j,k:integer; begin i:=0; k:=-1; j:=-1; while j<>high(mmm) do begin inc(j); if i>=mmm[j] then begin i:=mmm[j]; k:=j; end; end; label1.Caption:=inttostr(k)+" "+inttostr(i); end;

ЗЫ. Если я правильно понял условие:)

← →
minutka17 (2007-04-10 06:53) [2]

ПАСИБА!!!!!!!!!!!!!!!!!!!!!!!!!!

While:найти номер эл-та последовательности Найти похожие ветки