Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.075 c
1-1172823834
Mikhail83
2007-03-02 11:23
2007.04.29
Пролистывание в TChart


2-1175797381
..::KraN::..
2007-04-05 22:23
2007.04.29
Красивая форма.


4-1164386044
LexusU
2006-11-24 19:34
2007.04.29
Как получить статус процесса на удаленном компьютере


6-1162554304
Rentgen
2006-11-03 14:45
2007.04.29
?id=ТЕСТ TO id=%D2%C5%D1%D2


15-1175540196
Dmitry_177
2007-04-02 22:56
2007.04.29
в чем упаковывают программы(не инсталлытор)?