1. Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 – баллы учащихся за итоговый тест по информатике. Напишите программу, которая подсчитывает и выводит на экран средний балл класса, и также разность между ним и максимальным значением.
2. Дан целочисленный массив размерностью N (N –число, которое делится на 3 без остатка), заполненный случайными числами. Упорядочить по возрастанию центральную часть массива, первую и последние части оставить без изменений.
На паскаль АВС.

а можно полную программу? пж

const N=30 var A:array[1..N] of integer; i,x,y:integer; s:real; begin for i:=1 to n do readln(A[i]); ... end.