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

Дан массив из N элементов. Определить сумму элементов, которые краты 5

👇
Ответ:
kittikatlove
kittikatlove
19.12.2021

ответ: Python

a=[]                              # Пусть данный массив лежит в переменной а

s=0                                  # Объявление переменной суммы

for i in range(len(N)):    # перебор индексов (от 0 до кол-ва

                                                                         элементов N)

    if a[i] %5 == 0:           # Проверяем на кратность пяти

         s=s+a[i]                 # Прибавляем к сумме каждый элемент

print(s)                           # Печатаем сумму

Объяснение:

4,8(26 оценок)
Ответ:
mishac1470
mishac1470
19.12.2021

PascalABC.NET

#Решение 1. Массив генерируется случайно

begin

 var A := ArrRandom(ReadInteger('N = '));

 A.Where(x -> x mod 5 = 0).Sum.Println;

end.

#Решение 2. Массив вводится с клавиатуры юзером

begin

 var A := ReadArrInteger('Enter array: ', ReadInteger('N = '));

 A.Where(x -> x mod 5 = 0).Sum.Println;

end.

4,6(76 оценок)
Открыть все ответы
Ответ:
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var k:=0;
  var n:=ReadInteger();
  var nmax:=0;
  while n<>0 do begin
    Inc(k);
    if n mod 10 = 0 then
      if n>nmax then nmax:=n;
    n:=ReadInteger()  
    end;
  var cntrl:=ReadInteger();
  Writeln('Получено ',k,' чисел');
  Writeln('Полученное контрольное значение: ',cntrl);
  Writeln('Вычисленное контрольное значение: ',nmax);
  if cntrl=nmax then Writeln('Контроль пройден')
  else Writeln('Контроль не пройден')
end.

Тестовое решение:
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден
4,6(87 оценок)
Ответ:
agayevaaysu
agayevaaysu
19.12.2021
Поиско́вая систе́ма — это программное обеспечение, состоящее из базы данных документов, снабженной пользовательским интерфейсом, которое разработано для поиска информации во всемирной паутине. Пользуясь поисковой системой, пользователи составляют свои собственные поисковые запросы с ключевыми словами, а не используют фиксированные системой пути поиска. Веб-обозрева́тель, обозрева́тель, бра́узер или бра́узэр (от англ. Web browser; устар. бро́узер) — прикладное программное обеспечение для просмотра веб-страниц; содержания веб-документов, компьютерных файлов и их каталогов; управления веб-приложениями; а также для решения других задач. В глобальной сети браузеры используют для запроса, обработки, манипулирования и отображения содержания веб-сайтов. Многие современные браузеры также могут использоваться для обмена файлами с серверами ftp, а также для непосредственного просмотра содержания файлов многих графических форматов (gdf, jpeg, png, svg), аудио-видео форматов (mp3, mpeq), текстовых форматов (pdf, djvu) и других файлов.
4,4(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ