Question

Задачка на паскале ABC! Нужно решить с помощью процедур ! Задание----Найти максимальный элемент в массиве !

Answer 1

// PascalABC.NET 3.0, сборка 1088
const
  nn=100;
type
  tA=array[1..nn] of integer;

procedure MaxElem(n:integer; var m:ta; var mx:integer);
var
  i:integer;
begin
  mx:=m[1];
  for i:=2 to n do
    if m[i]>mx then mx:=m[i]
end;

var
  a:tA;
  i,n,amax:integer;
begin
  Write('Введите количество элементов в массиве: '); Read(n);
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i]:=Random(101)-50;
    Write(a[i],' ')
  end;
  Writeln;
  MaxElem(n,a,amax);
  Writeln('Максимальный элемент равен ',amax);
end.

Тестовое решение:
Введите количество элементов в массиве: 15
Элементы массива
-8 41 7 -40 -1 1 -18 5 -28 26 50 13 -42 39 -43
Максимальный элемент равен 50

Answer 2

Конечно! Вот пример решения задачи на поиска максимального элемента в массиве с использованием процедур в Pascal:

pascalCopy code
program MaxElement;

const
  MAX_SIZE = 100;

type
  IntArray = array[1..MAX_SIZE] of Integer;

procedure FillArray(var arr: IntArray; size: Integer);
var
  i: Integer;
begin
  for i := 1 to size do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;
end;

function FindMaxElement(const arr: IntArray; size: Integer): Integer;
var
  i, max: Integer;
begin
  max := arr[1]; // Предполагаем, что первый элемент максимальный
  for i := 2 to size do
  begin
    if arr[i] > max then
      max := arr[i]; // Обновляем значение максимального элемента
  end;
  FindMaxElement := max;
end;

var
  arraySize, max: Integer;
  arrayToSearch: IntArray;

begin
  Write('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(arraySize);

  FillArray(arrayToSearch, arraySize);
  
  max := FindMaxElement(arrayToSearch, arraySize);
  
  WriteLn('Максимальный элемент в массиве: ', max);
end.

В этом примере создается массив arrayToSearch типа IntArray, заполняется пользователем с помощью процедуры FillArray, а затем вызывается функция FindMaxElement, которая ищет максимальный элемент в массиве. Результат выводится на экран.

Программа запрашивает у пользователя размер массива и значения элементов. Затем она находит максимальный элемент и выводит его на экран.

Обратите внимание, что в данном примере размер массива ограничен константой MAX_SIZE, которую можно изменить по необходимости.