Тебе на поскале судя по всему надо, я его давно изучал синтаксис позабыл но алгоритм могу подсказать
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<29
n=n+arr[j];
конец;
writeln(N/30);//вывод среднего числа
end.
Наименьшее X, удовлетворяющее задаче = 45.
При анализе программы видно, что при вводе нечетного X в цикле while определятся наибольший общий делитель введенного X и 5. Очевидно, что это число 45. Если вводится четное число, то определяется НОД введенного числа и числа 24. При этом требуемое значение 5 здесь получиться не может.