В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Twister04
Twister04
31.12.2022 01:23 •  Информатика

Спецы по iMovie на компе, подскажите сняли видио с green screen вставляю фон но видио оч большое можно его как то уменьшить и передвинуть?

Показать ответ
Ответ:
Denis8903
Denis8903
01.05.2023 16:55

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('замен не было')

Объяснение:

0,0(0 оценок)
Ответ:
franciskthedirty
franciskthedirty
23.10.2022 02:22

1.

var s: string;

begin

write('Введите слово: ');

readln(s);

while (s<>'хватит') do

 begin

 writeln(s+'!');

 write('Введите слово: ');

 readln(s);

 end;

writeln('До следующих встреч');

end.

2.

var i,n,max,min: integer;

begin

randomize();

n:=random(201)-100;

max:=n;

min:=n;

write(n,' ');

For i:= 2 to 20 do

 begin

 n:=random(201)-100;

 write(n,' ');

 if (n>max) then max:=n;

 if (n<min) then min:=n;

 end;

writeln('Наибольшее число: ',max);

writeln('Наименьшее  число: ',min);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота