Доброго времени суток.) кто-нибудь может помочь?

1) var a: array [1… 100] of integer; объявляем массивi,n: byte; объявляем вспомогательную переменную i и переменную n для хранения количества элементов beginwrite ('Введите n='); readln (n); вводим nfor i: =1 to n do begin от 1 до n цикл write ('a[',i,']='); readln (a[i]); вводим элементы в массивend; write ('Исходный массив: '); for i: =1 to n do выводим наш массив полностьюwrite (a[i],'); writeln; write ('Результат: '); выводим результат, в данном случае все элементы стоящие на четных местахfor i: =1 to n doif i mod 2=0 then write (a[i],'); проверка на четность, мод — это оператор деления по остатку, если индекс делится на 2 без остатка, то выводим элементend. 2) var a: array [1… 100] of integer; i,n: byte; s: longint; s объявляем для хранения суммы элементов begins: =0; обнуляем swrite ('Введите n='); readln (n); тут тоже самое, что и в первой задачеfor i: =1 to n do beginwrite ('a[',i,']='); readln (a[i]); s: =s+a[i]; вот здесь мы складываем каждый элемент массива в переменную send; write ('Исходный массив: '); for i: =1 to n do вывод массиваwrite (a[i],'); writeln ('Сумма всех элементов массива=',s); вывод суммыend. Удачи=)