Б) Ввести три массива А[1..5], В[1..7], С[1..9]. При помощи функции определить минимальный элемент в каждом массиве. При помощи процедуры определить наибольший элемент и его порядковый номер в каждом массиве. В основной программе определить самый большой элемент из трех минимальных. Pascal ABC.NET

Предыдущий
вопрос Следующий
вопрос

program ArrayExample;

var
A: array[1..5] of integer;
B: array[1..7] of integer;
C: array[1..9] of integer;

procedure FindMaxElement(arrayName: string; arr: array of integer; size: integer);
var
maxElement, maxElementIndex, i: integer;
begin
maxElement := arr[1];
maxElementIndex := 1;

for i := 2 to size do
begin
if arr[i] > maxElement then
begin
maxElement := arr[i];
maxElementIndex := i;
end;
end;

writeln('Max element in ', arrayName, ' is ', maxElement, ' at index ', maxElementIndex);
end;

function FindMinElement(arr: array of integer; size: integer): integer;
var
min, i: integer;
begin
min := arr[1];

for i := 2 to size do
begin
if arr[i] < min then
min := arr[i];
end;

FindMinElement := min;
end;

var
minA, minB, minC, maxOfMins: integer;

begin
// Input arrays A, B, C
A[1] := 5; A[2] := 3; A[3] := 7; A[4] := 1; A[5] := 9;
B[1] := 12; B[2] := 6; B[3] := 8; B[4] := 4; B[5] := 2; B[6] := 10; B[7] := 14;
C[1] := 16; C[2] := 20; C[3] := 18; C[4] := 22; C[5] := 24; C[6] := 26; C[7] := 28; C[8] := 30; C[9] := 32;

// Find and display min elements of each array
minA := FindMinElement(A, 5);
minB := FindMinElement(B, 7);
minC := FindMinElement(C, 9);

writeln('Min element in Array A is ', minA);
writeln('Min element in Array B is ', minB);
writeln('Min element in Array C is ', minC);

// Find and display max element and its index in each array
FindMaxElement('A', A, 5);
FindMaxElement('B', B, 7);
FindMaxElement('C', C, 9);

// Find and display the max of the min elements
maxOfMins := max(minA, max(minB, minC));
writeln('The maximum of the minimum elements is ', maxOfMins);
end.