Решите задачки-легкие, легкие

нихрена себе легкие я не че не понял!!! я в 6 классе!

Вот, на Схеме:
1 задача
(define mas '(1 2 3 4 5 2 3 4 5 7 89 0))
(define inc #f)(define get #f)
(let ((c 0)) (set! inc (lambda () (set! c (+ c 1))))(set! get (lambda () c)))
(display "Enter T: ")
(define T (read))
(for-each (lambda (i) (if (< (abs i) T) (inc))) mas)
(display "Number of numbers less than ")(display T)(display ": ")(display (get))(newline)

2 задача:
(define (make-serial-number-generator)
(let ((current-serial-number 0))
(lambda (i)
(set! current-serial-number (+ current-serial-number 1))
current-serial-number)))

(define entry-sn-generator (make-serial-number-generator))
(define mas (map entry-sn-generator (make-list 10 0)))
(display mas)(newline)
(set! mas (reverse mas))
(display mas)(newline)

по №1:
обнуляешь счетчик, делаешь цикл с числом повторений от 0 до числа элементов в массиве.
читаешь элемент по абсолюту (модуль т. е.) , сравниваешь с Т.
ЕСЛИ удовлетворяет условию (<Т) то счетчик=счетчик+1
end if
next
выводим на экран "счетчик", это и будет ответом.

Прикольно а ты сам понял то че наплел то а?

полностью первая задача что то не влезает .. кину на почту
а вторую я что то не понял ...надо просто ввести элементы в массив .. ну и вводи
8,7,6,5,4,3,2,1... или что ?

детский сад. В любом учебнике куча примеров подобных

Что-то у меня в голове сломалось, кто такое придумывает?

Хоть я и не блондинка, но задачи для меня совсем не лёгкие)))))))