Question

Написать программу на Паскаль для решения задачи У клоуна в цирке 10 бочонков разной высоты. Из них он собирается построить «пирамиду». Какова будет ее высота?

Answer 1

Ответ:

• begin
•    writeln('Введите высоту каждого бочонка (всего 10):');
•    var a := ReadArrInteger(10);
•    writeln('Высота пирамиды: ', a.Sum);
• end.

Пример:

Answer 2

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

pascalCopy code
program ClownPyramid;

const
  NumBarrels = 10;

var
  BarrelHeights: array[1..NumBarrels] of Integer;
  i, j, temp: Integer;
  PyramidHeight: Integer;

begin
  { Ввод высот бочонков }
  for i := 1 to NumBarrels do
  begin
    Write('Введите высоту бочонка ', i, ': ');
    Readln(BarrelHeights[i]);
  end;

  { Сортировка высот бочонков по убыванию }
  for i := 1 to NumBarrels - 1 do
  begin
    for j := 1 to NumBarrels - i do
    begin
      if BarrelHeights[j] < BarrelHeights[j + 1] then
      begin
        temp := BarrelHeights[j];
        BarrelHeights[j] := BarrelHeights[j + 1];
        BarrelHeights[j + 1] := temp;
      end;
    end;
  end;

  { Вычисление высоты пирамиды }
  PyramidHeight := 0;
  for i := 1 to NumBarrels do
    PyramidHeight := PyramidHeight + BarrelHeights[i];

  { Вывод результата }
  Writeln('Высота пирамиды: ', PyramidHeight);
end.

Программа сначала запрашивает высоты 10 бочонков, затем сортирует их в порядке убывания. Затем суммирует все высоты бочонков, чтобы получить высоту пирамиды. Наконец, выводит полученную высоту пирамиды.