Смотри
1) Нужно сделать функцию генерации случайных чисел от 1 до N
Например
def gen(n):
return random(1,n)
2) Сделать массив из строк ARRAY, который будет хранить картинки(ссылки на них)
3) При нажатии на кнопку, запускалась функция которая удаляет текущую картинку и ставит новую
def select_new():
now_img = ARRAY[gen(lenght(ARRAY))]
И все! Осталось только это переписать на паскаль или на чем вы пишите.
Думаю особого труда вам это не составит!)
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
Обработка, передача, хранение