Дан массив из семи элементов написать программу подсчитывающую среднее второго…

Тебе на поскале судя по всему надо, я его давно изучал синтаксис позабыл но алгоритм могу подсказать 1) Var arr: массив (от 0 до 6); beginпока i<6 //ввод массива readln (arr[i]); конец; writeln (i[1]+i[5]) /2); //вывод среднего числаend.2) задача описана некорректно 3) Var arr: массив (от 0 до 29) ,n: integer; beginпока i<30 //ввод массива readln (arr[i]); конец; пока j<29n=n+arr[j]; конец; writeln (N/30); //вывод среднего числаend.