Pascal ABC, сделайте пожалуйста!!!!!
1. Даны натуральное число n и действительные числа a,b. Составьте программу, которая заполняет одномерный массив последовательности чисел t1, t2,…,tn, где ti=(b-a)/n. Полученный массив вывести на экран.
2. Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количество членов последовательности a1,..,an, являющихся нечётными числами.
3. Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количество членов последовательности a1,..,an, Кратных 5 и не кратных 3.
4. Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количество членов последовательности a1,..,an, с чётными порядковыми номерами и нечётными значениями.
5. Даны натуральные числа n, a1,..,an. Составьте программу, которая вычисляет сумму тех элементов последовательности a1,..,an, которые нечётны и отрицательны
6. Даны натуральные числа n, a1,..,an. Составьте программу, которая вычисляет среднее арифметическое элементов последовательности a1,..,an,
7. Даны натуральные числа n, a1,..,an. Составьте программу, которая находит максимальный и минимальный элементы.
8. Даны натуральные числа n, a1,..,an. Составьте программу, которая находит максимальный и минимальный элементы массива и выводит их порядковые номера.
9. Даны натуральные числа n, a1,..,an (В диапазоне от 0 до 100). Составьте программу, которая находит максимальный и минимальный элементы и выводит среднее арифметическое этих чисел.
10. Даны натуральное число n и последовательность целых чисел a1,..,an. Составьте программу, которая определяет количество пар соседних положительных чисел в данной последовательности.
11. Даны натуральное число n и одномерный массив, состоящий из n элементов. Составьте программу, которая в заданном массиве положительные элементы увеличивает вдвое, а отрицательные заменяет на значения их индексов. Полученный массив вывести на экран.

11) Program n1; var a:array[1..100] of real; n,i:integer; begin read(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]>0 then a[i]:=2*a[i]; for i:=1 to n do if a[i]<0 then a[i]:=i; for i:=1 to n do write(a[i],' '); end.

воу, спасибо