Задача 1. 
Заполнить массив из 10 элементов случайными значениями от 0 до 100.вывести на экран сумму четных элементов массива. 
Задача 2. 
Заполнить массив значение с клавиатуры (5 элементов) сумму минимального и максимального элемента.

1)Program n1;const n = 10;var m:array [1..n] of integer;i,sum: integer;beginrandomize;sum:=0;for i:=1 to n do beginm[i]:=random(101);if m[i] mod 2=0 then sum:=sum+m[i];end;writeln('сумма четных: ',sum);end.2)Program n2;const n = 5;var m:array [1..n] of integer;i,min,max : integer;beginfor i:=1 to n do readln(m[i]);max := m[1];min := m[1];for i :=1 to n do beginif max < m[i] then max := m[i];if min > m[i] then min := m[i];end;writeln('Сумма максимального и минимального: ', max+min);end.