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

// 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=); 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

Пример работы: [на фото].

Var X: Integer;

begin

Write('Введите число Х:');

Readln(X);

if X = 1 then Writeln('Красный')

else If X = 2 then Writeln('Зелёный')

else Writeln('Синий');

Readln;

end.