{* Задача99 *}

REM basic

' Проверить, есть ли в целочисленном трехмерном массиве элемент с заданным значением.


10 M% = 5: N% = 7: P% = 4
20 Dim AR%(M%, N%, P%)
30 For I=1 To M%
40 For J=1 To N%
50 For L=1 To P%
60 INPUT "Очередной элемент массива ="; AR%(I, J, L)
70 Next L, J, I
80 INPUT "Целое число ="; X%
90 FLAG = 0
100 For I=1 To M%
110 For J=1 To N%
120 For L=1 To P%
130 If AR%(I, J, L) = X% Then FLAG = 1: GoTo 150
140 Next L, J, I
150 If FLAG = 1 Then PRINT "Число есть" Else PRINT "Числа нет"
160 End