Сорян паскаль не знаю , могу скинуть на С++
Разбираешься в инфе , поймёшь
#include <iostream>
using namespace std ;
int main {
\\ не важно что выше
int num , k , o , s , l; \\ объявляем числа
l, o , s , k ,num = 0 ; \\ чтобы в компиле гадости не было
cin >> num >> k ; \\ вводим их c клавы
while (num >= 1) {
s = num ;
o = s%10 ;
if (o <= k){ // цикл на проверку условию задачи
l += 1 ;
}
num = num % 10 ;
}
cout << l ; // выводим ответ
\\ не важно что ниже
return 0 ;
}
var i, j, n: integer;
Arr: array [1..255] of integer;
FileArr: text;
procedure swap(var x, y: integer);
var t: integer;
begin
t := x; x := y; y := t
end;
begin
assign(FileArr, 'Array.txt');
rewrite(FileArr);
randomize;
write('Введите значение N: ');
readln(n);
for i := 1 to n do
begin
Arr[i] := random(100);
end;
for j := 1 to n - 1 do
for i := 1 to n - j do
if Arr[i] > Arr[i + 1] then
swap(Arr[i], Arr[i + 1]);
for i := 1 to n do
begin
writeln(Arr[i]);
end;
for i := 1 to n do
begin
writeln(FileArr, Arr[i]);
end;
close(FileArr);
end.