Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизОдномерный массив. Как заполнить числами от 1 до 10? Найти похожие ветки
← →
SPeller (2002-04-04 02:51) [14]var i,j,k:integer;
begin
randomize;
while i<=10 do begin
k:=round(random(9)+1);
for j:=1 to i-1 do
if a[j]=k then fl:=true;
if fl then dec(i) else a[i]:=k;
inc(i);
fl:=false;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c