Написать программу решения следующей задачи:

Дан массив из 20 целых чисел.

1. Найти среднее арифметическое элементов массива.
2. Найти количество чисел в заданном массиве, отличных от его последнего числа.
3. найти произведение отрицательных чисел массива.

var a:array [1..20] of integer;i,p:integer;n:real;m:longint;beginn:=0;p:=0;m:=1;write ('Массив: ');for i:=1 to 20 dobegina[i]:=random(101)-50;write (a[i],' ');end;for i:=1 to 20 dobeginn:=n+a[i];end;n:=n/20;writeln;writeln;write ('Среднее арифметическое = ',n);for i:=1 to 19 dobeginif a[20]<>a[i] then p:=p+1;end;writeln;write ('Кол-во чисел отличных от последнего в массиве = ',p);for i:=1 to 20 dobeginif a[i]<0 then m:=m*a[i];end;writeln;write ('Произведение отрицательных чисел массива = ',m);end.