Найти максимальный элемент массива - Turbo Pascal (29536)

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

Помогите пожалуйста ребят. 1. Составить блок схему алгоритма и программу которая считывает с клавиатуры одномерный массив из 20 компонент. 2. Находит максимальный элемент массива. 3. Выводит на кран монитора исходный массив и полученные результаты, сопровождая вывод необходимыми комментариями. Прошу ребят, для кого-го это просто, помогите пожалуйста, выручите, умоляю.

Решение задачи: «Найти максимальный элемент массива»

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

const
  n = 20;
 
var
  a: array [1..n] of integer;
  i, max: integer;
 
begin
  for i := 1 to n do
    readln(a[i]);
  max := a[1]; 
  for i := 2 to n do  
    if a[i] > max then
      max := a[i];
  for i := 1 to n do
    write(a[i]:5);
  writeln;  
  writeln(max);
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач различных уровней сложности, включая обработку данных и работу с массивами. В начале кода объявляются две переменные: n и a. Переменная n инициализируется значением 20, что указывает на количество элементов в массиве. Переменная a представляет собой массив целых чисел, который будет заполняться в процессе выполнения программы. Далее идет цикл for, который выполняется n раз, где n - это значение переменной n. Внутри цикла считывается значение каждого элемента массива с помощью функции readln(). Значение каждого элемента сохраняется в переменной a[i]. После этого инициализируется переменная max значением a[1], так как первый элемент массива всегда является максимальным. Затем начинается еще один цикл for, который выполняется от 2 до n. Внутри цикла проверяется, если значение текущего элемента (a[i]) больше значения переменной max, то max обновляется на значение текущего элемента. После завершения внутреннего цикла, в переменной max хранится наибольшее значение из массива. Затем начинается последний цикл for, который выполняется от 1 до n. Внутри цикла выводится значение каждого элемента массива с помощью функции write(). После вывода всех элементов массива выводится значение переменной max с помощью функции writeln(). Таким образом, данный код позволяет найти максимальный элемент в массиве и вывести его значение на экран.