Написать программу Задания: 1. Имеется набор состоящий из натуральных чисел Определите...

Question

Написать программу
Задания:
1. Имеется набор состоящий из натуральных чисел Определите макси-
мальное число, кратное 5. Программа получает на вход количество чи-
сел в последовательности, а затем сами числа.
2. Имеется набор состоящий из натуральных чисел Определите сумму
чисел, оканчивающихся на 4. Программа получает на вход количество
чисел в последовательности, а затем сами числа.
3. Имеется набор состоящий из натуральных чисел Определите сумму
чисел, кратных . Программа получает на вход количество чисел в по-
следовательности, а затем сами числа.
4. Имеется набор состоящий из натуральных чисел Найдите сумму
всех чисел, кратных 6 и оканчивающихся на 4. Числа последователь-
ности определите с помощью генератора случайных чисел Random(x).

Answer 1

// PascalABC.NET 3.3

begin
  var n:=ReadInteger('n = ');
  var a:=ReadArrInteger('Введите '+n+' чисел:',n);
  Writeln('1. максимальное число, кратное 5 = ',
           a.Where(x->x mod 5=0).Max);
Writeln('2. сумма чисел, оканчивающихся на 4 = ',
           a.Where(x->x mod 10=4).Sum);
  Writeln('3. сумма чисел, кратных 7 = ',a.Where(x->x mod 7=0).Sum);
  var b:=ArrRandom(n,10,90).Println;
  Writeln('4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = ',
    b.Where(x->(x mod 6=0)and(x mod 10=4)).Sum);
end.

Пример:
n =  30
Введите 30 чисел: 73 81 14 32 26 20 26 83 36 39 69 22 10 75 24 47 40 12 27 20 78 15 72 18 83 59 40 89 47 87
1. максимальное число, кратное 5 = 75
2. сумма чисел, оканчивающихся на 4 = 38
3. сумма чисел, кратных 7 = 14
84 57 88 50 41 85 28 15 47 48 46 69 41 56 89 19 54 74 33 58 83 66 40 35 89 80 12 86 46 14
4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 1384. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 0