Используя функцию random (x), получите числа в диапазонах от 50 до 100 и вывести все нечётные числа

var

arr : array[0 ... 50] of integer; / / объявляем массив.

i, sum : integer; / / объявляем переменные целочисленного типа.

begin

for i : = 1 to 50 do / / начало цикла.

begin

arr[i] : = random (50,100); / / заполняем элемент массива случайным числом от 50 до 100.

if (arr[i] mod 2 > 0) then / / если число нечетное, то выводим его на экран.

write (arr[i],' ');

end;

end.