Максимальний элемент массива. Суму элементов расположенных до последнего положительного элемента - Turbo Pascal

Формулировка задачи:

В одномерном массиве что состоит из N действительных элементов вычислить: 1.Максимальний элемент массива. 2.Суму элементов расположенных до последнего положительного элемента. Удалить из массива все элементы модуль которых находится в интервале [a, b] .Елементы которые освободятся в конце массива заполнить нулями.

Решение задачи: «Максимальний элемент массива. Суму элементов расположенных до последнего положительного элемента»

Листинг программы

uses
  SysUtils;
var
a: array [0..100] of Integer;
i,x,y,N: Integer;
begin
//Число элементов
Readln(N);
//Ввод значенией элементов
for i := 1 to N do
  begin
    Readln(a[i]);
  end;
//Вывод элементов на экран
 for i := 1 to N do
  begin
    Write(a[i]);
  end;
 y:=a[1];
  for i := 1 to N do
     begin
      x:=a[i];
      if x>y then     //Текущее значение больше чем предыдующее?
      y:=x;
     end;
  Writeln;
  Writeln(y);
  Readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач различных уровней сложности, включая обработку массивов и работу с числами. В начале кода объявляются необходимые переменные: a - массив целых чисел, i, x, y - целочисленные переменные, используемые для работы с элементами массива, и N - целочисленная переменная, которая представляет количество элементов в массиве. Затем происходит чтение значений элементов массива с помощью функции Readln(). Значения считываются в переменную a[i] и сохраняются в массиве. После этого происходит вывод значений элементов массива на экран с помощью функции Write(). Значение каждого элемента выводится на отдельной строке. Далее переменная y инициализируется первым элементом массива a[1]. Затем происходит цикл for, который выполняется столько раз, сколько элементов в массиве. Внутри цикла переменная x сравнивается с текущим значением переменной y. Если значение x больше значения y, то переменная y обновляется значением x. В конце кода выводится значение переменной y с помощью функции Writeln(). После этого происходит чтение следующего значения с помощью функции Readln().