Ваша программа:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
l = len(mas) # вычисляем длину списка (количество элементов)
for i in range( l ):
if mas [i]==point:
print("Содержит")
break
else:
print ("Не содержит")
Можно ещё так записать:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
for i in mas: #смотрим каждый элемент в массиве
if i == point:
print("Содержит")
break
else:
print ("Не содержит")
Можно написать так, что более понятно:
mas = [3,5,67,-65,34,21] # задаем список
print(mas)
point=3 # задаем искомое значение
if point in mas:
print("Содержит")
else:
print ("Не содержит")
![Поиск заданного элемента в списке mas = [3,5,67,-65,34,21] # задаем списокprint(mas) ………………………………… [](/tpl/images/1723/3464/3dc1d.jpg)
Добавление звукового файла с компьютера
Выберите Вставка > Звук.
Щелкните Аудиофайлы на компьютере.
В диалоговом окне Вставка звука выберите нужный файл.
Нажмите кнопку Вставить.
Запись звука
Выберите Вставка > Звук.
Выберите Записать звук.
Введите имя звукового файла, щелкните Записать, а затем надиктуйте текст.
Примечание: Для записи звука ваше устройство должно быть оснащено микрофоном.
Чтобы прослушать запись, нажмите кнопку Стоп, а затем кнопку Воспроизвести.
Щелкните Записать для повторной записи файла или нажмите кнопку ОК, если вас все устраивает.
Чтобы переместить запись, выделите значок звука и перетащите его в нужное место на слайде.
Если на слайде есть несколько звуковых файлов, рекомендуется располагать значок звука в одном и том же месте, чтобы его было проще найти.
Выберите Воспроизвести.
1.
program raf105;
var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0
then writeln('Число отрицательное')
else writeln('Число положительное');
end.
2.
program raf105;
var a,b,c:integer;
begin
write('Введите 3 числа: ');
readln(a,b,c);
if (a>b) and (a>c)
then writeln('Большее ',a);
if (b>a) and (b>c)
then writeln('Большее ',b);
if (c>b) and (c>a)
then writeln('Большее ',c);
end.
Язык программирования PascalABC