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

Водномерном массиве найти число кратное 7, если таковы есть, вывести на экран.

👇
Ответ:
алиярсик
алиярсик
07.03.2022
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,1,50); a.Println;
  a.Where(x->x mod 7=0).Println
end.

Тестовое решение:
n= 12
26 7 32 16 26 8 40 34 49 28 10 10
7 49 28
4,7(44 оценок)
Ответ:
minzer
minzer
07.03.2022
Решение на VBA:
Sub zad1()
Dim a(10) As Integer
Dim otvet As String
otvet = "Massiv: "
Randomize
For i = 0 To 10
    a(i) = Fix(Rnd * 1000)
    otvet = otvet + "[" + CStr(a(i)) + "] "
Next i
otvet = otvet + vbCrLf + "kratno 7: "
For i = 0 To 10
    If a(i) Mod 7 = 0 Then otvet = otvet + "[" + CStr(a(i)) + "] "
Next i
MsgBox (otvet)
End Sub

Результат:


Водномерном массиве найти число кратное 7, если таковы есть, вывести на экран.
4,6(61 оценок)
Открыть все ответы
Ответ:
моллск
моллск
07.03.2022

Python 3.7.2

some_list = [int(input()) for i in range(int(input('list range: ')))]

EvenSumm = 0 #Сумма чётных

#Ищем сумму чётных

EvenSumm = sum(list(filter(lambda x: x % 2 == 0, some_list)))

#Среднее арифметическое закачивающихся на 5

endswithfive = list(filter(lambda x: x % 10 == 5, some_list))

endswithfive_average = sum(endswithfive) / len(endswithfive)

#Поиск чего то, равного х  

something_equal_x = some_list[some_list.index(int(input('x = ')))]

#Маскимум и его индекс

max_ind = some_list.index(max(some_list))

max_and_his_index = (max(some_list), max_ind)

print(f'''

Answers:

a) Even Summ: {EvenSumm}

b) Average of nums, ends with '5': {endswithfive_average}

c) something, equal x: {something_equal_x}, placed under index: {some_list.index(something_equal_x)}

d) maximum and his index: {max_and_his_index}

   ''')

P.S - Скопированый код может не работать. Это нормально, сайт портит отступы. Код протестирован, работает. Приложен скриншот программы и вывода для придуманных на ходу входных данных


Дан одномерный массив. а) найдите сумму четных элементов массива б)среднее арифметическое элементов
Дан одномерный массив. а) найдите сумму четных элементов массива б)среднее арифметическое элементов
4,7(68 оценок)
Ответ:
Жулдуз111
Жулдуз111
07.03.2022

ответ:а) var x,y: real;б) var a,b,s: real;(a,b - стороны прямоугольника, s - площадь прямоугольника)в) var k:integer;ct,co,s: real;(k - количество тетрадей, ct,co - стоимость 1 тетради и 1 обложки (соответственно), s - стоимости покупки)г) var kt,kk,kr:integer;ct,ck,cr,s: real;(kt,kk,kr - количество тетрадей, карандашей и ручек (соответственно), ct,ck,cr - стоимость 1 тетради, 1 карандаша и 1 ручки (соответственно), s - стоимость покупки)Данные вещественного (real) типа используются значительно чаще целого типа. Они необходимы в тех случаях, когда числовые значения могут содержать дробные части.Данные целочисленного (integer) типа используются для представления целых чисел.

Объяснение:

4,4(72 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ