М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
NiKoN044
NiKoN044
27.12.2022 16:12 •  Информатика

Массив из n=20 элементов от -30 до 30. 1) найти сумму отрицательных
2) посчитать, сколько элементов делятся на 5 и не больше 20
3) произведение элементов, которые находятся на чётных позициях
4) сумму максимального и минимального элементов
5) вывести на экран те элементы, которые делятся на 3 и больше 0

👇
Ответ:
kamilla126
kamilla126
27.12.2022

1) -165

2) 3

3) -214277011200

4) 0

5) 3 6 9 12 15 18 21 24 27 30

код:

n = []

for i in range(-30, 31, 3):

   if i != 0:

       n.append(i)

x1, x2, x3, x4, x5 = 0, 0, 1, 0, []

mine = 0

maxe = 0

pos = 0

for i in n:

   pos += 1

   if i < 0:

       x1 += i

   if i % 5 == 0 and i < 20:

       x2 += 1

   if pos % 2 == 0:

       x3 *= i

   if pos == 1:

       mine = i

   elif pos == 20:

       maxe = i

   if i % 3 == 0 and i > 0:

       x5.append(str(i))

x4 = mine + maxe

print('  '.join(x5))

4,6(97 оценок)
Открыть все ответы
Ответ:
fantastik03
fantastik03
27.12.2022
//PascalABC.Net 3.0, сборка 1064
var
  s,w:string;
begin
  Write('Введите предложение: '); Readln(s);
  Write('Введите искомое слово: '); Readln(w);
  s:=' '+s+' ';
  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
  else Writeln('Слово не входит в предложение')
end.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)
4,4(100 оценок)
Ответ:
Strangeeo
Strangeeo
27.12.2022
Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!

Вот пример программы на паскале ABC:

var a:array [1..1000000] of integer; 
b:array [1..10] of longint;   
c:integer;   
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n); 
max:=0; 
for i:=1 to 10 do 
b[i]:=0; 
for i:=1 to n do  begin 
a[i]:=random(10)+1; 
write(a[i],' '); 
b[a[i]]:=b[a[i]]+1 
end; 
for i:=1 to 10 do if b[i]>max then 
begin 
c:=i; 
max:=b[i] 
end; 
writeln; 
writeln('Чаще всего в массиве встречается число ',c)
end.
4,6(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ