Question

Запишіть підпрограму-процедуру пошуку найбільшого елемента
масиву. За допомогою цієї процедури складіть програму, що
визначає, чи збігаються найбільші елементи двох масивів А [1..n] і В
[1..n].
Потрібно в паскалі. допоможіть

Answer 1

Ответ:

procedure findLargest(arr: array of Integer; n: Integer; var largest: Integer);

begin

 largest := arr[0];

 for i := 1 to n-1 do

 begin

   if (arr[i] > largest) then

     largest := arr[i];

 end;

end;