В массиве целых чисел заменить числа, содержащие все четные цифры на max значение массива. Вывести старый, новый и количество замен, если замен не было, то вывести сообщение «замен не было». Выводить с комментарием «заменяемые элементы» сами заменяемые числа в новый список.

l1=input('Введите элементы массива через пробел ').split()

l2=[]

for i in range(len(l1)):l2.append(l1[i])

c=0

for i in range(len(l1)):

   if str(l1[i]).count('1')==0 and str(l1[i]).count('3')==0 and str(l1[i]).count('5')==0 and str(l1[i]).count('7')==0 and str(l1[i]).count('9')==0:

       l1[i]=max(l1)

       c+=1

print('Старый массив: ')

for i in range(len(l2)):print(l2[i],end=' ')

print('\nНовый массив: ')

for i in range(len(l1)):print(l1[i],end=' ')

print('\nКоличество замен: ')

if c !=0:print(c)

else:print('замен не было')

Объяснение:

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

всего известно до 5000 разных египетских иероглифов, однако в каждую эпоху использовалось не более 700-800. среди египетских иероглифов различают: 1) одноконсонантные знаки (около 30) - обозначавшие согласные звуки египетского языка; 2) двух-трехконсонантные знаки для фонетической передачи морфем; 3) идеограммы – для обозначения целых слов; 4) детерминативы – (непроизносимые) идеографические знаки, уточняющие значения слов.