Ввести з клавіатури n будь-яких дійсних чисел. Знайти мінімальне серед від’ємних чисел зразок:

Program c27;
var i,n:integer;
max,a:real;
begin
readln(n);
writeln(' Ведіть від’ємне число');
readln(max);
for i:=2 to n do
begin
readln(a);
if (a>max) and (a<0) then max:=a;
end;
writeln(max:5:3);
end.

import java.util.Arrays;

import java.util.Scanner;

public class Main {

   public static void main(String[] args) {

       Scanner in = new Scanner(System.in);

       int n = in.nextInt();

       int k = in.nextInt();

       int[] array = new int[n];

       int[] array1 = new int[n];

       for (int i = 0;i < array.length;i++){

           array[i] = in.nextInt();

       }

       for (int i = 0;i < k;i++){

          array1[i] = in.nextInt();

           System.out.println(binarySearch(array,array1[i]));

       }

        }

   static String binarySearch(int[] sortedArray, int key) {

       int index = -1;

       int low = 0;

       int high = sortedArray.length - 1;

       while (low <= high) {

           int mid = (low + high) / 2;

           if (sortedArray[mid] < key) {

               low = mid + 1;

           } else if (sortedArray[mid] > key) {

               high = mid - 1;

           } else if (sortedArray[mid] == key) {

              return "YES";

           }

       }

       return "NO";

   }

}

Объяснение:

===== PascalABC.NET =====

begin

 // 1

 var s := 1;

 var i := 1;

 repeat

   s += i * i * i;

   i += 2

 until i > 13;

 Println('Сумма кубов нечетных чисел от 1 до 13 равна', s);

 // 2

 var (sum, pr) := (0, 1);

 for var j := -50 to 50 do

   // если условие предполагает, что "кратны 5 и 8"

   // на самом деле означает "кратны 5 ИЛИ 8", заменить

   // в следующей строке and на or

   if (j mod 5 = 0) and (j mod 8 = 0) then

   begin

     Print(j);

     sum += j;

     pr *= j

   end;

 Writeln;

 Write('Сумма: ', sum, ', произведение: ', pr)

end.

Задача2 - пример явной глупости того, кто ее придумал. При симметрии интервала с положительными и отрицательными числами, отбираемыми по кратности, каждому отобранному положительному числу будет соответствовать такое же отрицательное, поэтому сумма всегда будет нулевой. Вычислять произведение также нет смысла, поскольку ноль кратен любому числу и он всегда будет одним из сомножителей, обнуляя результат.