Question

Помогите, пж. Выполнить задание в Паскале. Дан массив из 10 чисел. Найти наибольшее значение среди элементов массива и вывести его на экран. Входные данные для решения задания задать самостоятельно. Нужен код.

Answer 1

Ответ:

var i,max:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);

begin

   max := a[1];

   for i:=2 to 10 do begin

       if max < a[i] then max := a[i];

   end;

   write('Максимальный элемент массива равен ', max);

end.

Answer 2

Конечно, вот пример кода на языке программирования Pascal, который решает вашу задачу:

pascalCopy code
program MaxValueInArray;

var
  arr: array [1..10] of integer;
  i, maxValue: integer;

begin
  // Заполните массив случайными числами (в данном случае, используем случайные числа от 1 до 100).
  Randomize;
  for i := 1 to 10 do
    arr[i] := Random(100) + 1;

  // Инициализируем переменную maxValue значением первого элемента массива.
  maxValue := arr[1];

  // Находим максимальное значение в массиве.
  for i := 2 to 10 do
  begin
    if arr[i] > maxValue then
      maxValue := arr[i];
  end;

  // Выводим максимальное значение на экран.
  writeln('Максимальное значение в массиве: ', maxValue);
end.

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