Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
Алгоритм в виде блок-схемы в приложенной картинке
1)
<span>n = int(input('n ='))
i = <span>1
</span>while i <= n<span>:
</span>----i = i + <span>1
</span></span>----<span>if n \% i == 0<span>:
</span></span>--------<span>print(i,end=',')
2)
</span>print("Введите x:")
x = int(input())
print("Введите y:")
y = int(input())
s = x
k = 1
while s <= y:
k = k+1
s = 1.1*s
print("k = ", k, end = '')