tsss

Всем добрый вечер,прошу помощи)
не могу разобраться,что не так с программами.
Задание 1.
S=1+1/5^2+1/5^3+...
Найти значение S до указанной точности.
Мое решение :program v2;
var z,s:real;
n,E:integer;
begin
writeln('vvedite E');
readln(E);
n:=1;
z:=1/5;
while abs(z)>=E do
begin
S:=1+Z;
z:=1/(exp (E)*ln (5));
writeln('vot i vse',s,s:2:3);
readln
end;
end.

Задание 2.
В векторе x(n) поменять местами последний и максимальный элементы
program massiv;
const mmax=10;
var
h:array[1..mmax] of integer;
i,m,j:integer;
max:integer;
begin
max:=1;
writeln('vvedite kolichestvo elementov massiva');
readln(m);
for i:=1 to m do
begin
Write('h[',i,']=');
Readln(h[i]);
end;
begin
j:=h[max];
h[m]:=h[i];
h[m]:=j;
end;
for i:=1 to m do
begin
writeln (h[i]:9,'vector');
readln
end;
end.

Vladimir_S

По первой - а всё не так. Не понимаю, что у Вас изображает идентификатор E? Мера точности? Но как тогда понимать вот это:
z:=1/(exp (E)*ln (5));
Показатель степени? Но что за чуднОе условие выхода из цикла? И где он возрастает?
И почему "end", закрывающий цикл While..Do, поставлен после вывода результата?
И т.д. и т.п. и проч.
В общем, не программа, а какой-то бессмысленный набор символов.
Между прочим, этот ряд представляет собой бесконечно убывающую геометрическую прогрессию, и сумма его, определенная по формуле, есть
S = 1/(1-1/5) = 1.25
Это для контроля.
А теперь работающий вариант программы (точность Е вводится в виде 0.1, 0.001, 0.000005 и т.п.):

Vladimir_S

Теперь - по второй.
Тут такой ужас, что я даже комментировать не берусь. Главное - абсолютно неграмотно организован обмен элементами. Впечатление, что фрагмент программы просто бездумно откуда-то скатан. Поиск максимального элемента массива отсутствует напрочь. И т.д.
Ладно, вот отлаженный вариант - разбирайтесь: