Нужна ! нужно написать программы (хотя бы две,) в паскале abc! 1. дан массив. все элементы уменьшить на число a. 2. дан массив целых чисел. верно ли,что сумма элементов массива есть четное число. 3. в массиве хранятся сведения о количестве осадков,выпавших за каждый день января. определить количество осадков за месяц и среднее количество за день.

2. Найти сумму чисел массива в переменной Sum, а потом: 
Writeln('Сумма элементов массива чётное число = ', not odd(Sum));

1.

  var m:array[1..100] of integer;         i,a,n:integer; begin write('Введите размерность массива: ');readln(n); write('Введите число А: ');readln(a); writeln('Введите массив: '); for i:=1 to N do readln(m[i]); writeln('Массив: '); for i:=1 to N do M[i]:=m[i]-a; for i:=1 to N do write(M[i],' '); end.