Вариант 18. в одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. количество элементов массива, меньших c. 2. сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. 3. преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%, а потом – все остальные.

Задание было решено мною ранее. Пользуйтесь поиском на сайте.

Программа и скриншот работы - в приложениях.

#include<iostream>

#include<clocale>

using namespace std;

int main(){

setlocale(LC_CTYPE, "");

cout << "Введите a, b и c\n";

double a, b, c;

cin >> a >> b >> c;

if (a == 0) {

 cout << "Коэффицент а не может быть равен нулю!";

}

double D = powl(b, 2) - 4 * a * c;

if (D > 0)

{

 cout << "два корня: x1=" << (b - sqrt(D)) / (-2 * a) << endl;

 cout << "x2=" << (b + sqrt(D)) / (-2 * a);

}

else if (D == 0)

{

 cout << "Один корень, но считать мы его не будем";

}

else

{

 cout << "Корней нет";

}

return 0;

}

Const n = 5;
var
  a: array [1..n] of integer;
  i,l,m,k: integer;
begin
  for i := 1 to n do read(a[i]);
  l := 1;
  while l < n do
    begin
    while (a[l] mod 2 = 0) and (l < n) do l := l + 1;
    if l < n then
      begin
      k := l;
      m := a[l];
      for i := l+1 to n do
        if a[i] mod 2 <> 0 then
        if a[i] > m then
          begin
          m := a[i];
          k := i
          end;
      a[k] := a[l];
      a[l] := m;
      l := l + 1
      end;
    end;
  for i := 1 to n do write(a[i],' ')
end.