задача о 20-ти звёздах из урока 16 Опции

[alien_killer]

Тут м 16-ом уроке задача есть с 20-ю звёздами . С одной у меня получилось, а до 20-ти никак не додумаюсь...Знаю, что от массива зависит, а как не пойму. Куда тут что всунуть надо?

Код

program Sterne;
uses crt;
const n=20;
var x: Array [1..n] of byte;
   y: Array [1..n] of byte;
   I,L:byte;
   ende:char;
begin clrscr;
randomize;
for L:=1 to 50 do
begin
For i:=1 to n do
repeat
x[i]:= random(79)+1;
y[i]:= random(24)+1;
gotoXY (x[i],y[i]);
write ('.');
delay (200);
gotoXY (x[i],y[i]);
write ('*');
gotoXY (x[i],y[i]);
delay (200);
gotoXY (x[i],y[i]);
write (chr(15));
delay (200);
gotoXY (x[i],y[i]);
write (' ');
end;
end.

Заранее thx.

Сообщение отредактировано: volvo - 17.12.2004 17:03