Составить программы на кумире для решения : а) задать массив пользователем с клавиатуры из 5-ти произвольных чисел. найти сумму третьего и пятого элементов последовательности. б) задать массив из м натуральных чисел. найти максимальный элемент последовательности. в) задать массив из м целых чисел. найти количество чисел, кратных 6-ти, или сообщить, что таких чисел нет. г) задать массив из 10-ти целых чисел. найти произведение чётных элементов последовательности. подсказка: использовать функцию mod.

А) алг а нач   цел n = 10   целтаб a[1: n]   цел i, s     нц для i от 1 до n     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     s: =a[3]+a[5]   вывод "s = ", s, нс кон б) алг б нач   цел m = 10   целтаб a[1: m]   цел i, max     нц для i от 1 до m     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     max: =a[1]   нц для i от 2 до m     если a[i] > max то       max: =a[i]     все   кц   вывод "max = ",max,нс кон в) алг в нач   цел m = 10   целтаб a[1: m]   цел i, k     нц для i от 1 до m     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     k: =0   нц для i от 1 до m     если mod(a[i],6)=0 то       k: =k+1     все   кц   если k> 0 то     вывод "k = ",k,нс   иначе     вывод "нет чисел, кратных 6"   все кон г) алг г нач   цел n = 10   целтаб a[1: n]   цел i, p     нц для i от 1 до n     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     p: =1   нц для i от 1 до n     если mod(a[i],2)=0 то       p: =p*a[i]     все   кц   вывод "p = ",p,нс кон

//pascal abc.net v3.0 delete(s,1,1);