Определить максимальный элемент массива и его порядковый номер - Pascal

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

Определить максимальный элемент массива В(50) и его порядковый номер.

Решение задачи: «Определить максимальный элемент массива и его порядковый номер»

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

program pr;
const
n=50;
var
c:array [1..n] of integer;
i,max,index:integer;
begin
max:=c[1];
for i:=1 to 50 do
begin
c[i]:=-10+random(31);         // диапазон заполнения массива можешь ставить какой хочешь 
write(c[i]:3);
if c[i]>max then
begin
max:=c[i];
index:=i;
end;
end;
writeln;
writeln('Максимальный элемент: ',max);
writeln('Порядковый номер максимального элемента: ',index);
end.

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

В данном коде объявлены следующие переменные:

n - константа, которая определяет максимальное количество элементов в массиве (в данном случае 50).
c - переменная, которая представляет собой массив целых чисел. Изначально все элементы массива устанавливаются в отрицательные значения (-10+random(31)), но вы можете изменить этот диапазон на любой другой.
i - переменная, которая используется как счетчик для прохода по всем элементам массива.
max - переменная, которая инициализируется значением первого элемента массива (c[1]).
index - переменная, которая будет использоваться для хранения порядкового номера максимального элемента. Цель программы - найти максимальный элемент в массиве и его порядковый номер. Программа начинается с инициализации переменной max значением первого элемента массива c[1]. Затем происходит цикл, который проходит по всем элементам массива от второго до последнего. Внутри цикла значение каждого элемента сравнивается с текущим максимальным значением max. Если текущий элемент больше max, то он становится новым максимальным значением, а переменная index устанавливается равной текущему индексу элемента. После завершения цикла, в переменной max хранится наибольшее значение из всех элементов массива, а в переменной index - его порядковый номер. Наконец, программа выводит на экран максимальное значение и его порядковый номер.