Опишите функции, выполняемые данной программой: var Form1: TForm1; a: array [0..4] of String; n,i:integer; procedure TForm1.Button1Click(Sender: TObject); - вопрос №3428234


begin
for i=0 to 4 do
a [i]:=(Memo1.lines[i]);
n:=Random(5);
Label2.Caption:=a[n];
end;
end.

Ответы

присваивает метке Label2, на форме Form1, случайное текстовое значение из списка Memo1
08.09.19

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store