1) Определить, является ли заданное целое число а двузначным числом. (Разветвляющийся алгоритм) 2) Вывести все нечетные однозначные числа. (Цикл) 3) Найти сумму нечетных элементов одномерного массива. (Массив) все в паскале

1) program zz1;

var n:integer; / / вводим переменную целого типа

begin

write (' введите номер вагона '); / / вводим с клавиатуры число

read (n);

if n>9 / / проверяем условие

then write (' вагон купейный ') / / выводим ответ

else write (' вагон плацкартный ');

end.

2) program zz1;

var a:integer; / / вводим переменную целого типа

begin

for a:=1 to 9 do

if a mod 2 = 1 / / проверяем условие

then writeln (' нечетное однозначное число ', a) / / выводим ответ

end.

3) program zz1;

const n = 25; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do

if m[i] mod 2 = 1 then k:=k+m[i]; / / проверяем, если число при делении на два дает в остатке один, то прибавляем его к сумме

write (' сумма нечетных элементов массива = ', k);

end.