Войти Регистрация Спроси ai-bota

Pascal в одномерном целочисленном массиве из n - элементов, вычислить сумму элементов, кратных 5.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Olga75aella

19.02.2020 12:52

Изобразить алгоритм решения в виде блок-схемы. дана матрица с порядка mxk. найти произведение наибольших значений элементов ее столбцов....

kocmoc505

22.04.2021 13:49

Построить в тетради таблицу на тему доля лесообразующих пород деревьев челябинскрй области...

DeathStroke11

24.04.2023 11:50

Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 35×35 пикселя, если известно, что в изображении используется палитра...

vnigmatullina

07.06.2022 10:27

Вчем состоит различие между лицензионными, условно-бесплатными и бесплатными программами?...

Makc134

24.03.2020 17:21

Информационная технология – выберите один ответ: программные, аппаратные и программно-аппаратные вычислительные комплексы комплекс методов и средств, обеспечивающих информационный...

dpa2807

01.05.2022 18:55

Отметьте единичные имена объектов: машина береза москва байкал а.с. пушкин операционная система клавиатурный тренажер windows xp...

SHAHRUKH575

05.05.2022 03:38

Информация, полученная на доступном языке, называется: а) полной. б) полезной. в) актуальной. г) достоверной. д) понятной....

Jlu4shiyFisik

13.04.2023 14:58

Какую информацию можно отнести к визуальной? а) запах цветущей серени. б)фотографии. в) громкую музыку. г)вкус напитка. д)ощущения холода или тепла....

anulka2

13.04.2023 14:58

1.для чего служит комбинация клавиш alt+f4? а.открывает окно. в.закрывает окно. с.закрывает все открытые окна. d.переводит на следуещее открытое окно. 2.как переключаться...

TanyaSha300

03.05.2020 02:17

Всемье пять человек: муж, жена, их сын, сестра мужа и отец жены. их профессии — инженер, юрист, слесарь, учитель и . известно, что юрист и учитель — не кровные родственники....

Ответ:

EgotinSmey

04.10.2020 06:19

Program xxx;
var a,b,i,n:integer;
begin
b:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 5=0 then begin
b:=b+a;
end;
end;
write(b);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку