Дом. задание. Массивы

Оформить блок-схему и программу для одной из задач на выбор.
Решение можно представить в рукописном виде, можно в электронном виде в редакторе MS WORD или др. (дополнительная оценка).

Задача 1. Заполнить одномерный целочисленный массив размерности N случайными числами в интервале от 0 до 100. 
Вывести массив на экран. Найти и вывести на экран максимальный и минимальный элементы массива, а также индексы этих элементов.

const n=20;
var i, j : integer;  mas: array[1..n] of integer; 
      max, min, imax, imin: integer; {imax и imin - индексы максимального и минимального  элементов}
begin
      randomize;
      for i:= 1 to n do mas[i]:= random(100);
      for i:= 1 to n do  write(mas(i):5);
      writeln();

           {блок решения задачи}

   end.

Задача 2. Заполнить одномерный целочисленный массив размерности 15 случайными числами в интервале от 0 до 50. 
Вывести массив на экран. 
Посчитать количество четных элементов массива, оканчивающихся на цифру 4.

Задача 3. Заполнить одномерный целочисленный массив размерности 10 случайными числами в интервале от 0 до 50. 
Вывести массив на экран.
Вычислить сумму элементов массива, больших 10 и меньших 30.