Вывести нечетные элементы массива - Turbo Pascal

Формулировка задачи:

1. Откройте текстовый редактор TurboPascal. 2. Напишите программу решения задачи по разработанному ранее алгоритму. В программе предусмотреть вывод справочной информации (информация об авторе, наименование и назначение программы), возможность многократных вычислений. 3. Отладьте программу. 4. Сохраните результаты работы программы. Само задание. Массив А вводится с клавиатуры. Вывести только нечетные элементы. Заранее спасибо (๑¯ω¯๑).

Решение задачи: «Вывести нечетные элементы массива»

Листинг программы

var
a:array [1..100] of integer;
i,n,c:integer;
begin
repeat
write('N = '); readln(n);
for i:=1 to n do begin
write('A[',i,'] = '); readln(a[i]);
end;
write('Nechetnye elementy: ');
for i:=1 to n do
if a[i] mod 2 > 0 then
write(a[i],' ');
writeln; write('Povtoryt vvod? (1 - da, 2 - net)');
readln(c);
until c=2;
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

a: массив целых чисел от 1 до 100;
i, n, c: целые числа, которые используются для чтения ввода пользователя;
n: количество элементов в массиве a, которое считывается с помощью функции readln;
c: число, которое считывается с помощью функции readln и используется для прерывания цикла. Внутри цикла repeat происходит следующее:
1. Выводится сообщение N = и считывается число n с помощью функции readln.
2. Для каждого элемента массива a от 1 до n выводится сообщение A[, i, '] = ' и считывается значение элемента массива a[i] с помощью функции readln.
3. Выводится сообщение Nechetnye elementy: и выводятся все нечетные элементы массива a, которые находятся в диапазоне от 1 до n.
4. Выводится сообщение Povtoryt vvod? (1 - da, 2 - net), где user должен ввести 1, чтобы продолжить ввод, или 2, чтобы завершить ввод.
5. Считывается значение c с помощью функции readln.
6. Цикл повторяется до тех пор, пока значение c не станет равным 2. Таким образом, данный код позволяет пользователю вводить элементы массива a и выводить нечетные элементы массива a.