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

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

👇
Ответ:
Софалия
Софалия
26.01.2023
Program sum;

var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
  Arr[i]:=random(100);
  write(Arr[i],',');
  if Arr[i] mod 5=0 then
    Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5  равна  ', Sum);
readln;

end.
4,4(95 оценок)
Ответ:
DimkaNevidimka13
DimkaNevidimka13
26.01.2023
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Write('Сумма элементов, кратных 5: ',
      a.Where(x->x mod 5=0).Sum)
end.

Пример
n= 13
-66 87 95 10 18 69 62 -74 -24 -74 -92 57 -4
Сумма элементов, кратных 5: 105
4,5(97 оценок)
Открыть все ответы
Ответ:
Meager36655
Meager36655
26.01.2023
Каждая буква в алфавите кодируется определенным количеством бит, чем больше букв, тем больше бит требуется для кодирования. Нам дано, что каждое слово состоит из 5 букв и при этом 1024мя словами исчерпывается словарный запас. Значит если в алфавите Х букв, то на первом месте слове может быть Х вариантов, на втором столько же и так далее. Итого комбинаций Х в степени 5. 
Значит Х в степени 5 = 1024.
Отсюда Х=4.
4 буквы в алфавите. 
Закодировать 4 буквы - 4 варианта можно 2мя битами. 2 в степени 2 =4.
Значит одна буква несет 2 бита информации.
4,4(79 оценок)
Ответ:
mishanyak1999
mishanyak1999
26.01.2023

 Я очень люблю уроки информатики. Это мой любимый урок. Там всегда весело и интересно. Каждый раз я узнаю что-то новое. Каждый урок не похож на другой, в школе такое бывает редко. Мне нравится работать на компьютере.

На самых первых уроках мы изучали Paint-рисовали разные плакаты и рисунки, дальше уже сложнее: создавали таблицы с разными цифрами, буквами и рисунками. Еще мне нравится интерактивная доска. На ней мы рисуем и выполняем задания специальным карандашом с батарейками. На большом экране мы видим монитор учителя, и  всему классу наглядно понятно,  что и как делать.

Еще на уроках информатики  мы учимся находить в интернете нужную информацию и смотрим разные города со спутника. Это очень интересно. Сразу создается впечатление, что ты побывала в новом месте и увидела много нового.

У нас очень хороший учитель. Она всё объясняет и показывает. . 



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