Question

Пожалуйста сделайте программу в паскаль вывести кол во элементов одномерного массива n и ввести элементы массива типа дабл, что бы выведенный массив был в первой строке(2 знака в дробно части) и упорядочить по убыванию и вывести его

Answer 1

var

 a:array of double;

 i,n,j:integer;

procedure swap(var x,y: double);

  var t: double;

begin

   t := x;

   x := y;

   y := t

end;

 

begin

 write('Кол-во чисел: '); readln(n);

 setlength(a,n);

 dec(n);    

 for i:=0 to n do

   readln(a[i]);

 writeln;  

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;    

 for j:=0 to n-1 do

   for i:=0 to N-j-1 do

     if a[i] < a[i+1] then

       swap(a[i],a[i+1]);        

 for i:=0 to n do

   write(a[i]:6:2);

 writeln;  

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!

Answer 2

Конечно, вот программа на Pascal, которая выполняет указанные действия:

pascalCopy code
program SortArray;
const
  MaxSize = 100; // Максимальный размер массива
var
  arr: array[1..MaxSize] of real;
  n, i, j: integer;
  temp: real;
begin
  // Ввод количества элементов массива
  write('Введите количество элементов в массиве: ');
  readln(n);

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to n do
    write(arr[i]:0:2, ' ');
  writeln;

  // Сортировка массива по убыванию
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if arr[i] < arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;

  // Вывод отсортированного массива
  writeln('Отсортированный массив (по убыванию):');
  for i := 1 to n do
    write(arr[i]:0:2, ' ');
  writeln;
end.

Эта программа позволяет ввести количество элементов и сами элементы массива типа double, выводит исходный массив и затем отсортированный по убыванию массив.