Задача на последовательность Опции

[Kosmik]

Помогите проверить правильно ли я решила задачу. Я только начала составлять программки.

Задание такое: Написать программу нахождения наименьшего члена последовательности 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.

[sheka]

У Вас какая-то неразбериха с переменными)

var
  n,m:integer;
  min:integer;

begin
  writeln('vvedite m');
  readln(m);
  min:=-5;
  for n:=2 to m do
    if n*n-7*n+1<min then min:=n*n-7*n+1;
  writeln('min=',min);
  readln;
end.

[Kosmik]

Просто, я только третий день занимаюсь с паскалем запуталась немного...слишком много информации за короткий срок

Сообщение отредактировано: Kosmik - 24.11.2009 19:33

[buy cheap online prescription vi]

Where To Buy Propecia