В приведенном примере используется цикл по значениям элементов двумерного массива. В массиве осуществляется поиск первого элемента, который больше 9,5. Как только элемент найден, обработка массива прерывается. Массив заполняется случайными значениями в интервале от 1 до 10.

 

/* Создать двумерный массив элементов.

   Строки массива нумеровать от 1 до 2, а столбцы - от 1 до 5 */

TwoDArray = CreateArray(1;2;1;5)

/* Заполнить массив случайным образом.

   Для получения случайных чисел использовать SQL-запросы */

i = 1

while i <= 2

  j = 1

  while j <= 5

    TwoDArray[i;j] = Round(SQL("select rand() * 10");2)

    j = j + 1

  endwhile

  i = i + 1

endwhile

// Проверить, есть ли в массиве элемент, значение которого больше 9,5.

ElementExists = False

foreach El in CArrayElement(TwoDArray)

  if El > 9.5

    ElementExists = True

    exitfor

  endIf

endforeach

//  Вывести на экран результат проверки.

if ElementExists

  ShowMessage("В массиве есть элемент, который больше 9.5.")

else

  ShowMessage("Все элементы массива меньше 9.5.")

endif

© Компания DIRECTUM, 2018

Сообщество пользователей DIRECTUM