в и т ь т е к с т д л я L a b e l 1 L a b e l 1 . C a p t i o n : = " Т е к с т д л я L a b e l 1 " ; / / П о л у ч и т ь т е к с т и з п о л я в в о д а E d i t 1 S : = E d i t 1 . T e x t ; github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
и понять, что к чему. github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
один и тот же тип. github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
a y [ 1 . . 1 5 ] o f I n t e g e r ; C : a r r a y [ 1 . . 2 0 ] o f c h a r ; github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
r a y [ 1 . . 1 5 , 1 . . 1 5 ] o f I n t e g e r ; C : a r r a y [ 1 . . 1 5 , 1 . . 1 5 ] o f c h a r ; github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
a y o f I n t e g e r ; C : a r r a y o f c h a r ; P.S. Память под динамический массив не выделяется, прежде чем его заполнять нужно указать размер процедурой SetLength. github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
r a y [ 0 . . 2 ] o f i n t e g e r = ( Я б л о к о , Б а н а н , Ф р у к т ) ; f o r i : = 0 t o 2 d o w r i t e l n ( M [ i ] + ' ' + ' M [ ' + i ' ] ' ) ; Вывод Я б л о к о M [ 0 ] Б а н а н M [ 1 ] Ф р у к т M [ 2 ] github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
заполняет этот массив случайными целыми числами, выводит список элементов массива. P.S. Добавить проверку от дебила (вводить только цифры от 0 до 9, если вводится символ - удалять) github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
f n o t ( K e y i n [ ' 0 ' . . ' 9 ' ] ) t h e n K e y : = # 0 ; / / P . S . K e y - с и с т е м н а я п е р е м е н н а я в в о д а github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
e g e r ; M : a r r a y o f I n t e g e r ; { д и н а м и ч е с к и й м а с с и в } b e g i n R a n d o m i z e ; / / з а д а е м с л у ч а й н о е н а ч а л ь н о е з н а ч е н и е д л я ф у н к ц и и R N : = S t r T o I n t ( E d i t 1 . T e x t ) ; { У с т а н а в л и в а е м ч и с л о э л е м е н т о в } S e t L e n g t h ( M , N ) ; { З а д а т ь м а с с и в у M д л и н у N } E d i t 2 . T e x t : = ' ' ; { О ч и щ а е м о к н о E d i t 2 } f o r I : = 0 t o N - 1 d o / / З а п о л н и т ь м а с с и в с л у ч а й н ы м и ч и с л а м и b e g i n M [ I ] : = R o u n d ( S i n ( R a n d o m ( 1 0 0 ) ) * 1 0 0 ) ; / / п р и с в о и т ь з н а ч е н и е E d i t 2 . T e x t : = E d i t 2 . T e x t + ' ' + I n t T o S t r ( M [ I ] ) ; / / В ы в е с т и э л е м е н т ы e n d ; github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
заполняет этот массив случайными целыми числами, выводит список элементов массива и выводит минимальное значение в отдельном окне ввода. P.S. Добавить проверку от дебила (вводить только цифры от 0 до 9, если вводится символ - удалять) github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
и результат этого массива отсортировать по желанию пользователя. github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
F o r m 1 . B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ; b e g i n R a n d o m i z e ; w i t h S t r i n g G r i d 1 d o / / з а п о л н и т ь н о м е р а с т р о к и с т о л б ц о в b e g i n I : = 0 ; / / N o i e a a o 0 f o r J : = 1 t o R o w C o u n t - 1 d o / / з а п о л н и т ь с т р о к и C e l l s [ I , J ] : = I n t T o S t r ( J ) ; J : = 0 ; / / N o ? i e a 0 f o r I : = 1 t o C o l C o u n t - 1 d o / / з а п о л н и т ь с т о л б е ц C e l l s [ I , J ] : = I n t T o S t r ( I ) ; e n d ; w i t h S t r i n g G r i d 1 d o / / з а п о л н и т ь м а с с и в f o r I : = 1 t o C o l C o u n t - 1 d o f o r J : = 1 t o R o w C o u n t - 1 d o C e l l s [ I , J ] : = I n t T o S t r ( R o u n d ( S i n ( R a n d o m ( 1 0 0 ) ) * 1 0 0 ) ) ; e n d ; e n d ; github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
на главной диагонали по нажатию кнопки Button2. github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
четверти по 5ти предметам: Программирование, Основы Алгоритмов, Математика, Культура речи. А также выводит итоговую оценку (среднее арифметическое за 4 четверти) github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
и которая считает сумму по нажатию на кнопку "Сумма" github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)
d 1 . O p t i o n s : = S t r i n g G r i d 1 . O p t i o n s + [ g o E d i t i n g ] ; github: [@exluap](https://github.com/exluap) Twitter:[@exluap] (https://twitter.com/exluap) WebSite: https://exluap.com/ Twitch: [@exluap](https://twitch.tv/exluap)