Получить ответ

Лена 4.2 4 отзыва Рейтинг: 368 Общаться в чате //жду плюсов) Var    a: array [1..100] of integer;    i,j,n: integer;    temp:integer; begin    Write ('введите размерность массивов:');    Readln(n);    for i:=1 to n do    begin      Readln (a[i]);    end;    for i:=Pred(N) downto 1 do         for j:=1 to Pred(i-1) do             if a[j]>=a[j+1] then             begin                 temp:=a[j];                 a[j]:=a[j+1];                 a[j+1]:=temp;             end;   for i:=1 to n do       writeln (a[i],' ');       readln; end. Добрый день. Меня заинтересовал ваш ответ "//жду плюсов) Var    a: array [1..100] of integer;    i,j,n: integer;    temp:integer; begin  ..." на вопрос http://www.liveexpert.org/topic/view/160320-pomogite-pozhalujsta. Можно с вами обсудить этот ответ? Обсудить с экспертом 10.12.11

Еva 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы