Создать список из четных чисел данной последовательности (Pascal -> Python)

@Xspam · Регистрация: 06.06.2023

Author24 — интернет-сервис помощи студентам

Дана последовательность целых чисел а1, а2, …, а18. Создать список из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте.

Pascal

const
n=10;
var
i,k:integer;
a,b:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');
 
k:=0;
for i:=1 to n do  begin
   if a[i] mod 2=0 then begin
        k:=k+1;  b[k]:=a[i];
   end;
end;
if k=0 then write('Net chetnih chisel!');
 
writeln('-------');
 
for i:=1 to n do
  write(' ',b[i]:3);
writeln();
end.

@s_t_r_a_j · 06.06.2023, 19:23

Python

from random import randint
chet = []
for i in range(18):
    d = randint(0,20)
    if d % 2 == 0:
        chet.append(d)
print(chet if len(chet) > 0 else 'Нет четных чисел!')

только есть комментарий, во-первых, по ТЗ не определено начало последовательности a1, и, судя по вашему коду, вы выбрали начало число 1, чем аргументирован ваш выбор - хз я так понимаю. и второе, в рандоме вы выбрали массив в 20 чисел, я так понимаю, тоже выбор из разряда: "потому что гладиолус"))))
я это к тому, что раз нет конкретных условий в ТЗ, можно не заморачиваться, а сделать вот так ->

Python

1	print([i for i in range(18) if i % 2 == 0])

@thyrex · 06.06.2023, 20:00

s_t_r_a_j,
1. В программе на Паскале исходные элементы выводятся на экран
2. Random(20) генерирует целые числа из отрезка [0; 19]

@s_t_r_a_j · 06.06.2023, 20:32

Сообщение от thyrex

Random(20) генерирует целые числа из отрезка [0; 19]

оки, здесь согласен, нужно тогда так d = randint(0,19), хотя откуда ТС берет, что рандом быть должен в таком диапазоне? по ТС предела диапазона нет, ну да ладно.
а здесь

Сообщение от thyrex

В программе на Паскале исходные элементы выводятся на экран

а у меня куда выводится?

@thyrex · 06.06.2023, 21:09

s_t_r_a_j, исходный список из 18 элементов никуда не выводится

@s_t_r_a_j · 06.06.2023, 21:20

Сообщение от thyrex

исходный список из 18 элементов никуда не выводится

конечно 18 элементов не выводится, а почему? а потому что выводится зачем-то 10 элементов (ключевое слово ВЫВОДИТСЯ)...

Сообщение от Xspam

write(' ',a[i]:3);

, а почему 10 смотрим выше n = 10, а зачем 10

, это уже к ТС вопрос, я тоже не знаю

@thyrex · 06.06.2023, 21:32

s_t_r_a_j, я вообще-то про Ваш вариант на python

А автор темы просто скопипастил чей-то вариант программы и даже не удосужился изменить 10 на 18.

@s_t_r_a_j · 06.06.2023, 21:46

ну значит из предложенного, дальше ТС сам разберется

@thyrex 13276 / 7400 / 1565 Регистрация: 06.09.2009 Сообщений: 26,968
	06.06.2023, 20:00	3
	s_t_r_a_j, 1. В программе на Паскале исходные элементы выводятся на экран 2. Random(20) генерирует целые числа из отрезка [0; 19] 0

@s_t_r_a_j 513 / 170 / 53 Регистрация: 12.02.2023 Сообщений: 613
	06.06.2023, 20:32	4
	Сообщение от thyrex Random(20) генерирует целые числа из отрезка [0; 19] оки, здесь согласен, нужно тогда так d = randint(0,19), хотя откуда ТС берет, что рандом быть должен в таком диапазоне? по ТС предела диапазона нет, ну да ладно. а здесь Сообщение от thyrex В программе на Паскале исходные элементы выводятся на экран а у меня куда выводится? 0

@thyrex 13276 / 7400 / 1565 Регистрация: 06.09.2009 Сообщений: 26,968
	06.06.2023, 21:09	5
	s_t_r_a_j, исходный список из 18 элементов никуда не выводится 0

@s_t_r_a_j 513 / 170 / 53 Регистрация: 12.02.2023 Сообщений: 613
	06.06.2023, 21:20	6
	Сообщение от thyrex исходный список из 18 элементов никуда не выводится конечно 18 элементов не выводится, а почему? а потому что выводится зачем-то 10 элементов (ключевое слово ВЫВОДИТСЯ)... Сообщение от Xspam write(' ',a[i]:3); , а почему 10 смотрим выше n = 10, а зачем 10 , это уже к ТС вопрос, я тоже не знаю 0

@thyrex 13276 / 7400 / 1565 Регистрация: 06.09.2009 Сообщений: 26,968
	06.06.2023, 21:32	7
	s_t_r_a_j, я вообще-то про Ваш вариант на python А автор темы просто скопипастил чей-то вариант программы и даже не удосужился изменить 10 на 18. 1

@s_t_r_a_j 513 / 170 / 53 Регистрация: 12.02.2023 Сообщений: 613
	06.06.2023, 21:46	8
	ну значит из предложенного, дальше ТС сам разберется 0