Найти все нечетные элементы массива целых чисел на паскале

var

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

arr: array [1 ... 10] of integer; / / объявляем массив, размерностью 10.

s, s1 : string; / / объявляем переменные строкового типа.

begin

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

begin

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

s : = s + arr[i] + ' '; / / записываем исходный массив в одну строку.

if (arr[i] mod 2 0)

then s1 : = s1 + arr[i] + ' '; / / записываем массив нечетных элементов в одну строку.

end;

writeln ('Исходный массив: ', s); / / вывод на экран строки.

writeln ('Нечетные элементы массива: ', s1); / / вывод на экран строки.

end.