Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.045 c