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

ЗАДАЧА НА МАССИВЫ: Задан целочисленный массив из 15 элементов, заданных случайным образом. Значения элементов выбираются из промежутка [0; 30]. Найти разность между суммой последних десяти элементов и минимальным элементом массива.
На экран вывести исходный массив и число, равное разности между суммой последних десяти элементов и минимальным элементом массива.

👇
Ответ:
denbulking
denbulking
02.07.2020

from random import randint

db = []

summa = 0

for i in range(15):

db.append(randint(0,30))

minimum = min(db)

for number in range(5, 15):

summa += db[number]

print(db)

print(summa - minimum)

Объяснение:

4,5(97 оценок)
Ответ:
DashaWolf11
DashaWolf11
02.07.2020

from random import randint

mass = [randint(0, 30) for i in range(15)]

print(mass)

print(sum(mass[5:]) - min(mass))

Объяснение:

4,4(78 оценок)
Открыть все ответы
Ответ:
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string;     c:char;     i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do  begin   c:=s1[i];{запомним символ}   k:=0;   for j:=length(s1) downto i+1 do{с конца строки ищем такие же}   if s1[j]=c then{если есть}    begin     k:=1;{фиксируем}     delete(s1,j,1);{удаляем}    end;   if k=1 then delete(s1,i,1){если не один, удаляем}   else i:=i+1;{иначе проверяем следующий}  end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.
4,5(23 оценок)
Ответ:
sofiya13031
sofiya13031
02.07.2020
Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub
4,6(7 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ