Главная страница
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.048 c
15-1175151640
PEAKTOP
2007-03-29 11:00
2007.04.29
Firebird v2.1 Alpha


15-1175436076
Ccil
2007-04-01 18:01
2007.04.29
Многопользовательские онлайновые игры в рунете


15-1175416141
Yanis
2007-04-01 12:29
2007.04.29
С праздником


2-1176110871
Steep
2007-04-09 13:27
2007.04.29
Размер формы


2-1176260193
Steep
2007-04-11 06:56
2007.04.29
Копирование по списку