М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
хитМо
хитМо
10.03.2023 21:06 •  Информатика

Используя контейнеры и алгоритмы стандартной библиотеки шаблонов, решить следующие задачи (использовать только алгоритмы стандартной библиотеки шаблонов):
Отсортировать две последовательности.
Метод сортировки произвольный, но чем меньше код, тем лучше.
Размер и элементы вектора вводятся с клавиатуры!
В результате программы должны быть выведены два отсортированных вектора.
На С++

👇
Открыть все ответы
Ответ:
vershinindaniil1
vershinindaniil1
10.03.2023
На языке Pascal.
program average_elems;
var a, b : array[1..1000] of integer; 
n, i, m, sum1, sum2 : integer;
begin
  read(n);
  for i:=1 to n do begin
    read(a[i]);
    sum1 := sum1 + a[i];
    end;
  read(m);
  for i:=1 to m do begin
    read(b[i]);
    sum2 := sum2 + b[i];
    end;
  write(sum1 div n, ' ', sum2 div m, ' ', sum1 div n + sum2 div m);
end.

a, b - первый и второй массивы. n, m - кол-во элементов в массивах a и b соответственно, sum1, sum2 - суммы элементов в первом и втором массивах соответственно. 
4,7(72 оценок)
Ответ:
8548
8548
10.03.2023
var
  y, x, a, xn, xk, dx, sum, multiplNegative: real; 
  countNegative: integer; 
  j, m, f: real;

begin
  write('a --> '); 
  Read(a); 
  write(' xn --> '); 
  Read(xn); 
  write(' xk --> '); 
  Read(xk); 
  write(' dx --> '); 
  Read(dx);
  sum := 0; 
  multiplNegative := 1; 
  countNegative := 0; 
  x := xn;
  while (x <= xk) do 
  begin
    if (a + x < 0) then begin
      f := (a + x) * -1; 
      f := ln(f) * (-1); 
      j := Round(abs(a - sqr(x)) * f * 100000) / 100000; 
    end 
    else 
      j := Round(abs(a - sqr(x)) * ln(a + x) * 100000) / 100000; 
    m := Power(sqr(x), 1 / 3) + Power(a, 1 / 5); 
    if j < 0 then begin
      j := j * (-1); 
      j := Power(j, 1 / 3); 
      j := j * (-1); 
    end 
    else 
      j := Power(j, 1 / 3);
    y := Round(j / m * 100000) / 100000; 
    write('x= ', x:5:3, ' '); 
    writeln('y= ', y:7:5); 
    if y < 0 then 
    begin
      sum := sum + y; 
      multiplNegative := multiplNegative * y; 
      inc(countNegative); 
    end; 
    x := x + dx; 
  end; 
  writeln; 
  writeln(' y = ', countNegative); 
  writeln('y = ', sum:7:5); 
  writeln(' y = ', multiplNegative:7:5);
  Readln;
end.
4,4(8 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ