Всякую на выборНадо написать программу на любом языке программирования Задано N

Любую на выбор
Надобно написать программку на любом языке программирования

Задано N - количество целых чисел. Отыскать сумму нечетных кратных 5, если таких чисел нет сумму считать одинаковой 0.


Задано N - количество естественных чисел. Отыскать наибольший среди трехзначных нечетных. Гарантируется, что хотя бы одно такое число в последовательности находится.


Задано N - количество целых чисел. Отыскать произведение наибольшего и малого положительных чисел данной последовательности. Гарантируется, что в последовательности присутствует минимум два положительных числа.


Задано N - количество естественных чисел. Отыскать величайшую разницу между 2-мя рядом стоящими элементами. Гарантируется, что частей не меньше 2-ух.

Задать свой вопрос
1 ответ

Ответ:

Объяснение:

На выбор - первая)

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)lt;gt;0) and ((a[i] mod 5) = 0)) then sum:=sum + a[i];

 

 writeln(sum);

 

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт