uses crt;
var
a:array[1..10] of integer;
i:integer;
begin
repeat
delay(50);
for i:=1 to 10 do
begin a:=random(21);
write(a,);
end;
delay(50);
clrscr
until false
end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.
