Задание такое: Написать программу нахождения наименьшего члена последовательности An=n*n-7*n+1, где n изменяется от 1 до m.
Знаю что с последним пунктом не справилась, но как его написать понять пока не могу.
Program Posled;
Var
x:integer; {значение очередного элемента}
i,n,min,k:integer; {i- номер очередного числа
n- колисетво элементов
min-кандидат на минимум
k-решение последовательности}
begin
writeln ('Задайте количество элементов');
readln (n);
writeln ('Введите первое целое число');
readln (min); {первое число кандидат на минимум}
for i:=2 to n do
begin write('Введите',i:2, ' число ');
readln(x);
k:=x*x-7*x+1;
if k<min then min:=k;
end;
writeln ('Минимальный элемент последовательности равен',min);
readln;
end.