Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел.программа выводит кол-во чисел кратных 5 и её произведение.

Var   a : array [1..10] of integer;   count, prod, i : integer; begin   count : = 0;   prod : = 1;   for i : = 1 to 10 do read (a[i]);   for i : = 1 to 10 do     if a[i] mod 5 = 0 then     begin       count : = count + 1;       prod : = prod * a[i];     end;   if count > 1 then write (count, ' ', prod) else write ('таких чисел нет'); end.

Program sr; const n=10; var a,b,c: array[1..n] of integer;     d: array[1..n] of real;     i,k: integer;     begin    randomize; for i: =1 to n do begin    a[i]: =random(15);     b[i]: =random(15);     c[i]: =random(15);     d[i]: =(a[i]+b[i]+c[i])/3    end;     for i: =1 to n do begin    write (a[i],' ',b[i],' ',c[i],' ',d[i]: 2: 2);     writeln;     end;     end.

1дан массив а(10). заменить все нечетные элементы массива на минимальное значение. вывести преобразованный массив. 2 вести массив а(36). найти произведение первых пяти элементов массива, сумму остальных и частное от деления произведения и суммы. вывести все результаты.1) при цикла найти минимальное значение.2) записать значение минимума в отдельную переменную.3) при цикла каждый элемент проверять на четность, если элемент четный, то тогда переходить к следующему, а если он не четный, то приравнивать его к переменной в которой записан минимум.1) при цикла ограниченным до 5ого элемента включительно любую объявленную переменную и заранее  приравненную  к единице  умножить поэлементно(при цикла)2) начиная с 6 элемента и до конца при цикла сложить все элементы и записать эту  сумму в отдельную объявленную переменную3)записать в объявленную переменную выражение   произведение/сумму.4) вывести все переменные на экран.