Определите, есть ли среди цифр заданного целого трехзначного числа одинаковые - QBasic

Формулировка задачи:

Здравствуйте помогите пожалуйста решить задачи. 1)Для заданной матрицы A(N, N) найдите сумму элементов,расположенных в строках с отрицательным элементом на главной диагонали 2)Определите,есть ли среди цифр заданного целого трехзначного числа одинаковые 3)Из заданного вектора A(3N) получите вектор B(N), очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора А Заранее спасибо.

Решение задачи: «Определите, есть ли среди цифр заданного целого трехзначного числа одинаковые»

Листинг программы

CLS
INPUT "Vvedite n"; N
DIM A(N, N)
RANDOMIZE TIMER
FOR I = 1 TO N
  FOR J = 1 TO N
    A(I, J) = INT(RND * 199) - 100
    PRINT A(I, J);
  NEXT J
  PRINT ""
NEXT I
 
FOR I = 1 TO N
  IF A(I, I) < 0 THEN
    FOR J = 1 TO N
      SSTR = SSTR + A(I, J)
    NEXT J
    PRINT "SUMMA ELEMENTOV"; I; "STROKI RAVNA:"; SSTR
  END IF
NEXT I

Объяснение кода листинга программы

В первой строке программы объявляется переменная N типа INPUT, в которую пользователю предлагается ввести трехзначное число.
Далее создается двумерный массив A размером N на N.
С помощью функции RANDOMIZE TIMER инициируется генератор случайных чисел.
Затем с помощью двух вложенных циклов FOR происходит заполнение массива A случайными трехзначными числами от -100 до 199.
В каждой итерации внутреннего цикла значение элемента массива выводится на экран.
После завершения внутреннего цикла, с помощью функции PRINT выводится символ новой строки, чтобы перейти к следующей строке вывода.
После завершения внешнего цикла, программа переходит к следующей части кода.
С помощью второго вложенного цикла FOR проверяется, есть ли в массиве элемент со значением меньше нуля.
Если такой элемент найден, то с помощью оператора IF выполняется еще один вложенный цикл FOR, в котором к переменной SSTR добавляется значение каждого элемента массива.
После завершения внутреннего цикла, с помощью функции PRINT выводится сообщение SUMMA ELEMENTOV, за которым следует номер строки, а затем STROKI RAVNA: и значение переменной SSTR.
Если в массиве не найдено ни одного элемента со значением меньше нуля, то программа пропускает эту часть кода.
После завершения внешнего цикла, программа завершается.