- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
b:=['F','G','K','L','N'];
for i:=1 to 10 do
for j:=1 to 10 do
begin
repeat
M[i,j] := chr(random(9)+70);
until M[i,j] in b;
end;
Школоло / Говнокод #757
0
Надо заполнить массив случайными буквами из набора. Бросаем монетку, пока не выпадет решка...
Запостил: 
guest,
(Updated )
По-моему, наоборот: мозг пришлось излишне напрячь.
а по-моему, автор сохранил свое время.
Эх... нипомню уже что там есть в дельфи, но неужели нельзя написать так:
M[i,j] := b[random(b.length())];