ABCPascal
В массиве хранится информация о стоимости товаров. Определить суммарную стоимость пяти самых дорогих видов товаров.
Ответы
Чтобы найти суммарную стоимость пяти самых дорогих видов товаров, можно отсортировать массив по цене товаров и выбрать первые пять элементов. Затем можно сложить цены этих товаров.
Ниже приведен пример кода на ABCPascal, который реализует этот алгоритм:
const
N = 7; // Размер массива
var
prices: array[1..N] of integer; // Массив стоимостей товаров
i, j: integer; // Счетчики циклов
total: integer; // Суммарная стоимость
begin
// Ввод массива стоимостей товаров
for i := 1 to N do
read(prices[i]);
// Сортировка массива стоимостей товаров по убыванию
for i := 1 to (N - 1) do
for j := i + 1 to N do
if prices[i] < prices[j] then
begin
// Обмен элементов массива
var temp := prices[i];
prices[i] := prices[j];
prices[j] := temp;
end;
// Вывод сортированного массива
for i := 1 to N do
write(prices[i], ' ');
writeln;
// Подсчет суммы первых пяти элементов массива
total := 0;
for i := 1 to 5 do
total := total + prices[i];
// Вывод суммы первых пяти элементов массива
writeln(total);
end.