Question

. Найти максимальный элемент массива из 10 целых чисел. На языке Паскаль! Помогите.

Answer 1

Program Marray;
var arr:array[1..10] of integer;
      i,max:integer;
begin
for i:=1 to 10 do readln(arr[i]);
for i:=1 to 10 do
begin
if arr[i]>max then max:=arr[i];
end;
writeln(max);
end.

Answer 2

Для нахождения максимального элемента в массиве из 10 целых чисел на языке Паскаль, вы можете использовать следующий код:

program FindMaxElement;
var
  arr: array[1..10] of integer;
  i, max: integer;
begin
  randomize;
  
  // Заполнение массива случайными числами
  for i := 1 to 10 do
  begin
    arr[i] := random(100); // Генерация случайного числа от 0 до 99
    writeln('arr[', i, '] = ', arr[i]);
  end;
  
  max := arr[1]; // Предполагаем, что первый элемент является максимальным
  
  // Поиск максимального элемента
  for i := 2 to 10 do
  begin
    if arr[i] > max then
      max := arr[i];
  end;
  
  writeln('Максимальный элемент: ', max);
end.

В этом коде мы объявляем массив `arr` из 10 целых чисел и переменную `max`, которая будет содержать максимальный элемент. Затем мы заполняем массив случайными числами и выводим их на экран. Далее мы инициализируем переменную `max` значением первого элемента массива. Затем мы проходим по всем остальным элементам массива и сравниваем их со значением `max`, обновляя `max`, если текущий элемент больше. В конце мы выводим значение `max`, которое будет содержать максимальный элемент массива.

Примечание: В коде используется функция `randomize`, чтобы инициализировать генератор случайных чисел, и функция `random`, чтобы генерировать случайные числа от 0 до 99. Если вам нужны другие диапазоны случайных чисел, вы можете изменить аргументы функции `random`.

Надеюсь, это поможет вам найти максимальный элемент в массиве на языке Паскаль! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать.