1) Определить, является ли заданное целое число а двузначным числом. (Разветвляющийся алгоритм)

2) Вывести все нечетные однозначные числа. (Цикл)

3) Найти сумму нечетных элементов одномерного массива. (Массив)

все в паскале

1)

program z1;

Var a:integer;

Begin read (a) ;

if (a>9) and (a<100) then writeln (a, '-двузначное число')

else writeln (a, '-не является двузначным числом') ;

end.

2)

program z2;

Var i:integer;

Begin

for i:=1 to 9 do if (i mod 2 = 1) then writeln (i, ', ') ;

end.

2 способ:

program z2;

Var i:integer;

Begin

i:=1;

while i<=9 do

begin write (i, ', ') ;

i:=i+2;

end;

end.

3)

program z3;

Var i, n:integer;

S:real;

a: array[1 ... 100] of real;

Begin

write ('Введите количество элементов массива:') ;

readln (n) ;

write ('Введите элементы массива:') ;

for i:=1 to n do read (a[i]) ;

i:=1; S:=0;

while i<=n do

begin S:=S+a[i];

i:=i+2;

end;

write ('S=', S) ;

end.