Любую на выбор
Надо написать программу на любом языке программирования
Задано N - количество целых чисел. Найти сумму нечетных кратных 5, если таких чисел нет сумму считать равной 0.
Задано N - количество натуральных чисел. Найти максимальный среди трехзначных нечетных. Гарантируется, что хотя бы одно такое число в последовательности присутствует.
Задано N - количество целых чисел. Найти произведение максимального и минимального положительных чисел данной последовательности. Гарантируется, что в последовательности присутствует минимум два положительных числа.
Задано N - количество натуральных чисел. Найти наибольшую разницу между двумя рядом стоящими элементами. Гарантируется, что элементов не меньше двух.
Надо написать программу на любом языке программирования
Задано N - количество целых чисел. Найти сумму нечетных кратных 5, если таких чисел нет сумму считать равной 0.
Задано N - количество натуральных чисел. Найти максимальный среди трехзначных нечетных. Гарантируется, что хотя бы одно такое число в последовательности присутствует.
Задано N - количество целых чисел. Найти произведение максимального и минимального положительных чисел данной последовательности. Гарантируется, что в последовательности присутствует минимум два положительных числа.
Задано N - количество натуральных чисел. Найти наибольшую разницу между двумя рядом стоящими элементами. Гарантируется, что элементов не меньше двух.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
На выбор - первая)
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.