CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
'Цикл по элементам массива
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
NEXT i
FOR i = 1 TO n
'Проверка остатка от деления числа на 10
IF A(i) MOD 10 = 0 THEN PRINT A(i)
NEXT i
END
пример 2
Дан двумерный массив. Вывести на экран элементы следующим образом сначала элементы первого столбца сверху вниз, затем второго столбца снизу вверх и т.п.