Слазарусом! 1. напишите процедуры formcreate и button1click. в программе присвоить строковым переменным s1 и s2 строковые константы. при запуске программы s1 и s2 выводятся label1 и label2 соответственно, а при щелчке по кнопке button1 надписи в label1 и label2 меняются местами. 2. при щелчке по кнопке button1 в label1 вывести все элементы одномерного массива, а при щелчке по кнопке button2 вывести в label2 элементы массива, значения которых меньше числа x, заданного в edit1.

{1 } var   form1: tform1;   s1,s2: string; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); begin     s1: ='stroka1';     s2: ='stroka2';     label1.caption: =s1;     label2.caption: =s2; end; procedure tform1.button1click(sender: tobject); var s: string; begin     s: =s2;     s2: =s1;     s1: =s;     label1.caption: =s1;     label2.caption: =s2 end; end. {2 } var   form1: tform1;   n: integer;   a: array[1..10] of integer; implementation {$r *.dfm} procedure tform1.formcreate(sender: tobject); var i: integer; begin   randomize;   label1.caption: ='';   label2.caption: ='';   n: =10;   for i: =1 to n do   a[i]: =random(100); end; procedure tform1.button1click(sender: tobject); var i: integer; begin   for i: =1 to n do   label1.caption: = label1.caption + ' '+inttostr(a[i]); end; procedure tform1.button2click(sender: tobject); var i: integer; begin   for i: =1 to n do   if a[i]< strtoint(edit1.text) then   label2.caption: = label2.caption + ' '+inttostr(a[i]); end; end.

А)121101001 б)999900011 в)незнаю