Объяснение:
program odd;
var
arr1, arr2: array[1..23] of integer;
i, cnt, tmp, buffer: integer;
begin
writeln('исходный массив:');
for i := 1 to 23 do
begin
arr1[i] := random(100);
write(arr1[i], ' ');
end;
writeln();
cnt := 0; //считем сколько нечетных, переносим в другой массив
for i := 1 to 23 do
begin
if arr1[i] mod 2 <> 0 then
begin
cnt := cnt + 1;
arr2[cnt] := arr1[i];
end;
end;
//сортируем arr2 пузырьком
for i := (cnt - 1) downto 1 do
begin
tmp := i;
while ((tmp < cnt) and (arr2[tmp] > arr2[tmp + 1])) do
begin
//swap
buffer := arr2[tmp];
arr2[tmp] := arr2[tmp + 1];
arr2[tmp + 1] := buffer;
tmp := tmp + 1;
end;
end;
Writeln('отсортированные нечетные:');
for i := 1 to cnt do
write(arr2[i], ' ');
writeln();
writeln('всего: ', cnt);
end.
a = [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89]
b = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13]
c = []
for i in range(len(a)):
for j in range(len(b)):
if a[i] == b[j]:
c.append(a[i])
print(list(set(sorted(c # сортировка по возрастанию
print(list(set(sorted(c, reverse=True # сортировка по убыванию
3):a = [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89]
for elem in a:
if elem < 5:
print(elem,end = ' ')
4)a = []
for i in range(102):
if i == 100:
a.append(1)
elif i == 101:
a.append(1)
else:
a.append(0)
print(a)
5)
a = []
for i in range(90):
if i % 2 == 0:
a.append(i)
print(a)
print(len(a))