Вам дана программа, решающая 136 задачу (p139.pas).
Требуется найти в ней ошибку, и объяснить (письменно
или устно), почему так происходит.

Текст программы p139.pas

const nmax=100;

var a:array[1..nmax] of integer;
    n:integer;
    i,j,g:integer;

    f1,f2:text;

begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
                                  {Чтение входных данных}
read(f1,n);
for i:=1 to n do read(f1,a[i]);
                                  {Сортировка массива}

for i:=1 to n do begin            {Подбираем число на i-ое место}

  g:=i;                           {Считаем, что самое маленькое число,
                                   которое нам встретилось, стоит на месте i}

  for j:=i+1 to n do              {Перебираем все числа с i+1 до конца массива}
    if a[j]<a[g] then g:=j;       {Если нашли число, которое меньше,
                                   чем то, что уже найдено, запоминаем его}

                                  {Меняем местами числа, стоящие на i-ом и
                                   на g-ом местах }
                                  {Если a[i]=x, a[g]=y, то после выполнения
                                   команды: }
  a[i]:=a[i]+a[g];                {a[i]=x+y, a[g]=y}
  a[g]:=a[i]-a[g];                {a[i]=x+y, a[g]=(x+y)-y=x}
  a[i]:=a[i]-a[g];                {a[i]=(x+y)-x=y}
                                  {То есть после этого a[i]=y, a[g]=x
                                   обмен значений произошел}

  end;

                                  {Выводим результат}
for i:=1 to n do
  write(f2,a[i],' ');
close(f1);
close(f2);
end.

   Решение

Страница: 1 2 3 4 5 6 7 >> [Всего задач: 290]      

Чему равна площадь треугольника со сторонами 18, 17, 35?

Прислать комментарий

Решение

У равнобедренного треугольника стороны равны 3 и 7. Какая из сторон является основанием?

Прислать комментарий

Решение

a, b и c - длины сторон произвольного треугольника. Докажите, что  a = y + z, b = x + z и c = x + y, где x, y и z — положительные числа.

Прислать комментарий

Решение

a, b и c - длины сторон произвольного треугольника. Докажите, что  a² + b² + c² < 2(ab + bc + ca).

Прислать комментарий

Решение

В. треугольнике длины двух сторон равны 3, 14 и 0, 67. Найдите длину третьей стороны, если известно, что она является целым числом.

Прислать комментарий

Решение

Страница: 1 2 3 4 5 6 7 >> [Всего задач: 290]