1) даны 3 целых числа. вычислить среднее арифметическое. 2) вычислить sin1+sin1.5++sin10 3) найти количество отрицательных элементов массива из 8 целых чисел. буду если хотя бы 1-2 решите заранее +)

1) program example 1;
var
x, y,z : integer;
sr_arif : real;
begin
write ( ' введите числа x, y и z ' );
readln (x,y,z);
sr_arif := (x+y+z)/3;
writeln( ' среднее арифметическое чисел x, y и z =' , sr_arif);
end.