Многострочное текстовое поле содержит 6 целых чисел. Создайте шей папке.
прямоугольники,
обработчик события Click для кнопки, выполнение которого закра.
сит в синий цвет прямоугольники, для которых соответствующие
значения больше чем 100, а в зеленый цвет
для которых соответствующие значения больше чем 200. Сохраните
проект в папке с именем Задание 6.3.8, созданной в вашей папке
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.Distinct.OrderBy(x->x).Reverse.Skip(1);
if s.Count>0 then begin
var i:=a.FindIndex(t->t=s.First);
Writeln('Искомый элемент равен ',a[i],' его порядковый номер ',i+1)
end
else Writeln('Нет искомых элементов')
end.
Пример
n= 13
-7 -2 -32 9 21 -31 34 -34 27 -35 11 7 -10
Искомый элемент равен 27 его порядковый номер 9