Паскаль. Одномерный массив.

Posted by obzor under Delphi

Дан вещественный массив a размером n (n=10). Переставить элементы массива таким образом, чтобы в начале в массиве шла группа элементов больших первого элемента в исходном массиве, потом-группа элементов меньших или равных ему.

newerow1989

const n=10;
var p:array[1..10] of real;
    i,j,k:byte;
    z,p1:real;
begin
   Randomize;
   For i:=1 to n do
      Readln(p[ i]);
   p1:=p[1];
   k:=1;
   For i:=2 to n do
      If p[ i]>p1 then
      begin
         z:=p[k];
         p[k]:=p[ i];
         For j:=i downto k+2 do
            p[j]:=p[j-1];
         k:=k+1;
         p[k]:=z;
      end;
   For i:=1 to n do
      Write(p[ i]:2:0,'  ');
   Readln;
end.

Аватар

  Readln(p1);
  k1:=1; k2:=10;
  For i:=2 to 10 do begin
    Readln(p2);
    if p2>p1 then begin p[k1]:=p2; Inc(k1); end
             else begin p[k2]:=p2; Dec(k2); end;
  end;
  p[k1]:=p1;

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)