| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
While:найти номер эл-та последовательности [D6, XP]
minutka17 © (2007-04-10 06:07:00)В общем, дана последовательность натуральных чисел, за которой следует 0. Нужно найти порядковый номер наименьшего элемента последовательности. HELP ME!!!!! plz...
minutka17 (2007-04-10 06:53:00) [1]ПАСИБА!!!!!!!!!!!!!!!!!!!!!!!!!!
vasIZmax (2007-04-10 06:37:00) [2]То что в 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;
ЗЫ. Если я правильно понял условие:)
| |
