Question

Помогите,пожалуйста,решить задачу на Паскале: Дан массив чисел А [1..n]. Вывести массив B[1..n], в котором B [i]= max{ A[1], A[2], … A[i] }.

Answer 1

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50); a.Println;
  var b:=new integer[n];
  for var i:=0 to n-1 do
    b[i]:=a[:i+1].Max;
  b.Println
end.

Пример
n= 15
-21 27 -19 -7 34 -20 25 36 40 -2 40 43 -37 41 7
-21 27 27 27 34 34 34 36 40 40 40 43 43 43 43

Answer 2

Для решения данной задачи на Паскале, вам потребуется использовать цикл и условие. Вот подробное объяснение алгоритма: #### Алгоритм решения: 1. Создайте массив `A` размером `n` и заполните его числами. 2. Создайте массив `B` размером `n` и инициализируйте его нулями. 3. Используя цикл `for`, пройдитесь по каждому элементу массива `A` от первого до последнего. 4. Внутри цикла, найдите максимальное значение среди элементов массива `A` от первого до текущего индекса `i`. 5. Присвойте значение максимального элемента массива `A` текущему элементу массива `B` с индексом `i`. 6. После завершения цикла, массив `B` будет содержать значения `max{A[1], A[2], ..., A[i]}` для каждого элемента `i`. #### Пример кода на Паскале: ```pascal program MaxArray; const n = 5; // размер массива var A: array[1..n] of Integer; // массив A B: array[1..n] of Integer; // массив B i, maxElement: Integer; begin // Заполнение массива A A[1] := 10; A[2] := 5; A[3] := 8; A[4] := 12; A[5] := 3; // Инициализация массива B нулями for i := 1 to n do B[i] := 0; // Поиск максимальных значений и заполнение массива B maxElement := A[1]; B[1] := maxElement; for i := 2 to n do begin if A[i] > maxElement then maxElement := A[i]; B[i] := maxElement; end; // Вывод массива B for i := 1 to n do Write(B[i], ' '); Readln; end. ``` #### Объяснение кода: - В этом примере мы создаем два массива `A` и `B` размером `n`, где `n` - это количество элементов в массиве. - Массив `A` заполняется числами вручную, но вы можете изменить его инициализацию по своему усмотрению. - Массив `B` инициализируется нулями с помощью цикла `for`. - Затем мы используем цикл `for` для прохода по каждому элементу массива `A`. - Внутри цикла мы находим максимальное значение среди элементов массива `A` от первого до текущего индекса `i`. - Значение максимального элемента присваивается текущему элементу массива `B` с индексом `i`. - После завершения цикла, мы выводим массив `B` на экран. **Примечание:** В приведенном выше примере используется язык программирования Паскаль (Turbo Pascal). Если вы используете другую среду разработки или версию Паскаля, синтаксис может немного отличаться.