Помогите пожалуйста:
1. В массиве Т(15) найти количество положительных, отрицательных и нулевых элементов
2. Является ли количество букв во введённом слове четным?
3. Дан фрагмент программы:
for n:=1 to 5 do
for m:=1 to 5 do
C[n,m]:=(m-n)*(m-n)
Сколько элементов массива С будут равны 1?
4. В массиве A(20) найти сумму наибольшего и наименьшего элементов

1var i, minus, plus, zero: integer;t: array [1..15] of integer;beginminus := 0;plus := 0;zero := 0; for i := 1 to 15 dobegin readln(t[i]); if t[i] > 0 then plus := plus + 1; else if t[i] < 0 then minus := minus + 1; else zero := zero + 1;end;end.2var stroke: string;beginreadln(stroke); if length(stroke) mod 2 = 0 then writeln('Четно');else writeln('Нечетно');end.3 (Сейчас далеко от компа, когда буду рядом отредачу)4 var max, min, i: integer;A: array[1..20] of integer;beginmin := a[1];max := a[1];for i := 2 to 15 dobegin if a[i] > max then max := a[i]; if a[i] < min then min := a[i];end;end.