Найти все двузначные числа. в записи которых есть цифра 5(через цикл с параметром)

Const n=15; var a: array[1..n]of integer; i,b: integer; begin for i: =1 to n do a[i]: =random(100)-20; for i: =1 to n do write(a[i],' '); writeln; for i: =1 to n do begin if (a[i] mod 5 = 0) and (a[i] mod 10< > 0) or (a[i] div 10=5) then write(a[i],' '); end; writeln; end.

Option explicit sub laba9()       dim n as integer, a() as integer, i as byte, j as byte, min as integer, l1 as integer, l2 as integer       dim b() as integer       n = val(inputbox("введите размерность массива"))       redim a(n, n)       sheets("лист1").select       sheets("лист1").range("a1: z26").clear       for i = 1 to n               for j = 1 to n                       a(i, j) = rnd * 100                       cells(i, j) = a(i, j)               next j       next i       min = a(1, 1)       l1 = 1       l2 = 2       for i = 1 to n               for j = 1 to n                   if a(i, j) < min then                               min = a(i, j)                               l1 = i                               l2 = j                       end if               next j       next i       redim b(n - 1, n - 1)       for i = 1 to l1 - 1               for j = 1 to l2 - 1                       b(i, j) = a(i, j)               next j               for j = l2 + 1 to n                       b(i, j - 1) = a(i, j)               next j       next i       for i = l1 + 1 to n               for j = 1 to l2 - 1                       b(i - 1, j) = a(i, j)               next j               for j = l2 + 1 to n                       b(i - 1, j - 1) = a(i, j)               next j       next i       for i = 1 to n - 1               for j = 1 to n - 1                       cells(i + n + 2, j) = b(i, j)               next j       next i end sub

Бір Байт бір-бірімен қатарласа тізбек түрінде орналасқан 8 биттен, яғни екілік сан таңбаларынан тұрады. Мысалы, компьютерде “Е” әрпі 10000101, кіші “е” әрпі 10100101, “/” таңбасы 00101111, “8” саны 00111000 түрінде өңделеді. Бір Байт тек бір символды бейнелейтін ақпарат өлшеу бірлігі болғандықтан, оның көмегімен 256 символды (28=256) өрнектеуге болады. Компьютер жадының көлемі осы Байт бірлігімен өлшенеді. Ол үшін Байт бірлігінің еселік түрлері: килобайт — Кб (1 Кб=1024 Б=210Б.), мегабайт — Мб (210 Кб), гигабайт — Гб (210Мб) қолданылады. Мысалы, ЭЕМ-нің шапшаң жадының көлемі 32 Мб болса, онда 32Һ210 Байт (символ) ақпарат сақталынады. Ал, ЭЕМ-нің сыртқы жадында (магниттік дискілерінде) 1—8 Гб және одан да көп ақпарат сақтауға болады. Мысалы, 400 беті бар, әр бетінде 50 қатар, ал әр қатарда 50 таңба болатын кітаптың көлемін Байт арқылы есептесек, онда 400Һ50Һ50 = 1000000 Байт = 1 Мб (яғни көлемі 1 Гб дискі 1000 кітапты есте сақтай алады). Қатар орналасқан төрт Байт бір машиналық сөз болып есептеледі, ол 32 биттен тұрады. 64 биттен немесе 8 Байттан тұратын мәліметтер бірлігі екі еселенген машиналық сөз деп аталады. Компьютер осы машиналық сөздер тізбегін өңдейді