Question

Массив из 12 элементов. Найти наибольший элемент массиваПаскаль

Answer 1

Program Max_element_massiva ;

Var i, n, max : integer ;

   A : array [1..100] of integer;

Begin

    Writeln('Введите количество элементов массива') ;

    Readln(N) ;

    Randomize;

    For i := 1 to N do

         begin

              A[i] := Random(100);

              Write(A[i]);

         end;

    Max := A[1];

    For i := 2 to N do

         if A[i]>Max then Max := A[i];

    Writeln('Максимальный Элемент массива = ',Max) ;

    Readln ;

End.

Answer 2

Для поиска наибольшего элемента в массиве из 12 элементов на языке программирования Pascal, вам нужно будет выполнить следующие шаги:

1. Создайте массив с 12 элементами. Например, вы можете объявить массив следующим образом:

var
  myArray: array[1..12] of Integer;

2. Заполните массив значениями. Вы можете это сделать вручную, либо с использованием генератора случайных чисел. Например:

Randomize;  // Инициализация генератора случайных чисел
for i := 1 to 12 do
  myArray[i] := Random(100);  // Заполняем массив случайными целыми числами от 0 до 99

3. Теперь вам нужно пройти по всем элементам массива и найти наибольший элемент. Вы можете сделать это с использованием цикла `for`. Вот пример кода для этого:

var
  maxElement: Integer;
  
maxElement := myArray[1];  // Пусть первый элемент массива будет начальным максимальным значением

for i := 2 to 12 do
begin
  if myArray[i] > maxElement then
    maxElement := myArray[i];  // Если текущий элемент больше максимального, обновляем максимальное значение
end;

writeln('Наибольший элемент массива: ', maxElement);

Этот код сначала устанавливает начальное значение `maxElement` равным первому элементу массива, а затем проходит по остальным элементам и сравнивает их с текущим максимальным значением. Если текущий элемент больше текущего максимального, оно обновляется. В конечном итоге, в переменной `maxElement` будет содержаться наибольший элемент массива, и он будет выведен на экран.