Любую на выборнадо написать программу на любом языке программирования задано n - количество целых чисел. найти сумму нечетных кратных 5, если таких чисел нет сумму считать равной 0. задано n - количество натуральных чисел. найти максимальный среди трехзначных нечетных. гарантируется, что хотя бы одно такое число в последовательности присутствует.задано n - количество целых чисел. найти произведение максимального и минимального положительных чисел данной последовательности. гарантируется, что в последовательности присутствует минимум два положительных числа.задано n - количество натуральных чисел. найти наибольшую разницу между двумя рядом стоящими элементами. гарантируется, что элементов не меньше двух.
aliskaiii
3
19.04.2019 20:16
2
Другие вопросы по теме Информатика
Тупойшкольник0
20.05.2020 10:16
vika111192
13.11.2020 10:53
Nekotin0
11.12.2020 08:53
Лена200115
11.12.2020 08:53
опчарготь
11.12.2020 08:55
Yulyaisaeva2005
11.12.2020 08:55
yousei1234
26.08.2019 12:20
helpplizzzz
26.08.2019 12:20
Популярные вопросы
- Почему так настойчива ольга в том, чтобы они с обломовым поженились?...
3 - Серебристый тополь; шелковистая трава; золотистая корочка; застенчивая...
1 - Кто думает позаботиться о родителях...
2 - Составить план на тему: как начиналась эпоха великих открытий....
1 - Рассчитай температуру воздуха у подножья горы , если известно , что на...
1 - Представьте в виде степени и найдите значение выражения: (2^3 а^-3)^-1...
3 - Сегіз аяқ өленінің негізгі идеясына талдау жасаңдар...
2 - Художні засоби виразності «жартівливі коломийки»...
1 - Йгласный и согласный каким цветом красить красным синим или зелёным...
3 - Вмагазин в первый день прислали 45 курток а во второй на 8 курток меньше....
2
Объяснение:
На выбор - первая)
var
n:integer;
a:array[1..1000] of integer;
i:integer;
sum:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
sum:=0;
for i:=1 to n do
if (((a[i] mod 2)<>0) and ((a[i] mod 5) = 0)) then sum:=sum + a[i];
writeln(sum);
end.