1) определить, является ли заданное целое число а двузначным числом. (разветвляющийся алгоритм) 2) вывести все нечетные однозначные числа. (цикл) 3) найти сумму нечетных элементов одномерного массива. (массив) все в паскале
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом Введите количество элементов массива:'); 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.
1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом Введите количество элементов массива:');
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.