1 2 3 4 5 6 7 8 9 10 | cls input "kolichestvo massiva"; m dim a(m) for i = 1 to m ? "vvedite znachenie massiva"; i input a(i) next i for i = 1 to m if a(i)<>a(m) then ? a(i); next |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 9 10 | cls input "kolichestvo massiva"; m dim a(m) for i = 1 to m ? "vvedite znachenie massiva"; i input a(i) next i for i = 1 to m if a(i)<>a(m) then ? a(i); next |
Тестирование выполнено в программе QB64 ( Скачать )