kasiys K kasiys Регистрация 12 Ноя 2013 Сообщения 100 Репутация 8 Спасибо 1 Монет 0 30 Июн 2016 #1 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. как завершить программу по нажатию клавиши?
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. как завершить программу по нажатию клавиши?