Вычислить среднее арифметическое N чисел - Pascal ABC

Формулировка задачи:

Кто-нибудь помогите пожалуйста решить вот эти задачи (желательно до среды): 18 Дано N натуральных чисел. Написать программу, вычисляющую их среднее арифметическое. Число N вводиться перед всеми остальными числами. 19 Дано натуральное число N. Написать программу для вычисления суммы 1(2) +2(2) + 3(2)+....+N(2). Где N(2) - это число во 2 степени. 34. Дана последовательность целых чисел, заканчивающаяся нулём. Написать программу, которая подсчитывает количество чисел в последовательности. 35. Дана последовательность целых чисел, заканчивающаяся нулём. Написать программу, которая находит среднее арифметическое всех данных чисел. Число "нуль" использовать для вычисления результата не нужно. 36. Дана последовательность целых чисел, содержащая два нуля в произвольных местах. Написать программу, которая подсчитывает количество чисел между нулями. 37. Дана последовательность целых чисел, заканчивающаяся двумя нулями подряд.Написать программу, которая подсчитывает количество чисел в последовательности. 38. Дана последовательность целых чисел, заканчивающаяся нулём.Написать программу, которая выводит последнее нулевое число последовательности. 61. Дано натуральное число N. Написать программу для вычисления суммы вида 1/1 + 1/2 + 1/3 +... (N слагаемых). 74. Дано натуральное число N. Написать программу для вычисления суммы вида 1/1(2) + 1/2(2) + 1/3(2)... +1/N (2). Где N(2) - это число во 2 степени. 75. Дано целое число N (>0). Найти произведение 1,1*1,2*1,3*... *N. 78. Дано целое число N (>0). Найти значение выражения 1,1 - 1,2 + 1,3... (N слагаемых, знаки чередуются). Условный оператор не использовать. 82.Даны натуральное число N и последовательность из N целых чисел. Написать программу, определяющую количество положительных чисел в последовательности. 85.Дана последовательность из N чисел. Написать программу для нахождения минимального числа последовательности и его номера. 89. Даны целые числа N, K, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести сумму его элементов. Знаю что здесь есть и простые задания, но я их всё ровно не понимаю =(, если кто может дайте пожалуйста решения и объяснение того как эти задания (или одно задание) сделать. Тем кто поможет сделать заранее огромное человеческое СПАСИБО.

Решение задачи: «Вычислить среднее арифметическое N чисел»

Листинг программы

var i, n, b :integer;
begin
b:=0;
writeln('Сколько раз нужно проделать операцию? ');
readln(n);
for i:=1 to n do
begin
b:=b+sqr(i);
end;
writeln('Результат выполнения программы:',b);
end.

Объяснение кода листинга программы

В данном коде выполняется следующее:

Объявляются три переменные: i, n, b (номер 1, 2, 3).
Переменная b инициализируется значением 0 (номер 4).
Пользователю предлагается ввести количество повторений операции (переменная n) (номер 5).
В цикле от 1 до n выполняется операция (номер 6).
Результат каждой операции (квадрат числа i) прибавляется к переменной b (номер 7).
После завершения цикла выводится результат выполнения программы (переменная b) (номер 8).
Код завершается (номер 9).