| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Массив
Bad_B © (2007-05-03 13:07:00)Подскажите, почему этот код выдает баг:
const n=10;
var
a:array of integer;
i,k:integer;
begin
setlength(a,n);
k:=0;
for i:=0 to n do
begin
a[i]:=random(98);
if (a[i] mod 9=2) then
memo1.Lines.Add(inttostr(a[i]))
else
inc(k);
end;
Bad_B (2007-05-03 13:16:00) [1]
> clickmaker © (03.05.07 13:12) [1]
как я это мог пропустить:((... В самом деле до n-1. От нуля ж...
Спасибо.
icWasya (2007-05-03 13:15:00) [2]for i:= low(a) to high(a) do // !!!
clickmaker (2007-05-03 13:12:00) [3]потому что to n-1 надо
umbra (2007-05-03 13:12:00) [4]каков наибольший индекс в массиве?
| |
