Question

Відсортувати елементи заданого масиву L(1..15) за зменшенням елементів і знайти відношення мінімального додатнього елемента до максимального від'ємного. Вивести вихідний масив, мінімальний додатний, максимальний від'ємний та знайдене відношення. Скласти програму в Pascal

Answer 1

Ответ:

#include<iostream>

using namespace std;

int main()

{

int l[15];

double min=0,max=0;

for(int i=0;i<15;i++)

{

  cin>>l[i];

  if(l[i]>0&&l[i]<min&&min!=0)

      min=l[i];

      if(min==0&&l[i]>0)

          min=l[i];

  if(l[i]<0&&l[i]>max&&max!=0)

      max=l[i];

      if(max==0&&l[i]<0)

       max=l[i];

}

sort(l,l+15);

cout<<min<<" "<<max<<endl;

cout<<min/max<<endl;

for(int i=14;i>=0;i--)

  cout<<l[i]<<" ";

  return 0;

}

Answer 2

Звісно, ось приклад програми на Pascal, яка виконує зазначені дії:

pascalCopy code
program SortAndCalculateRatios;

const
  N = 15;

var
  L: array[1..N] of Integer;
  i, temp, minPositive, maxNegative: Integer;
  ratio: Real;

procedure Swap(var a, b: Integer);
var
  temp: Integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  { Введення елементів масиву }
  writeln('Введіть ', N, ' цілих чисел:');
  for i := 1 to N do
    readln(L[i]);

  { Сортування масиву за зменшенням }
  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if L[i] < L[j] then
        Swap(L[i], L[j]);

  { Знаходження мінімального додатнього та максимального від'ємного }
  minPositive := MaxInt;
  maxNegative := -MaxInt;
  
  for i := 1 to N do
  begin
    if (L[i] > 0) and (L[i] < minPositive) then
      minPositive := L[i];
      
    if (L[i] < 0) and (L[i] > maxNegative) then
      maxNegative := L[i];
  end;

  { Знайдення відношення }
  ratio := minPositive / maxNegative;

  { Виведення результатів }
  writeln('Відсортований масив:');
  for i := 1 to N do
    writeln(L[i]);

  writeln('Мінімальний додатній елемент: ', minPositive);
  writeln('Максимальний від\'ємний елемент: ', maxNegative);
  writeln('Відношення: ', ratio:0:2);
end.

Ця програма використовує метод сортування бульбашкою для сортування елементів масиву у порядку спадання. Далі, вона знаходить мінімальний додатній елемент і максимальний від'ємний елемент, після чого обчислює відношення мінімального додатнього елемента до максимального від'ємного.