Print array А (N, N). Divide all of its elements by the minimum element
Print array А (N, N). Divide all of its elements by the minimum element of the main diagonal. Print the original and transformed arrays as matrices.
Objective 2.
var
number, col: integer;
count, min_el: real;
arr: array [1..5,1..5] of real;
begin
writeln (‘Original array:’);
for number: = 1 to 5 do
begin
for col: = 1 to 5 do
begin
arr [number, col]: = random (10) +2;
write (arr [number, col]: 5);
end;
writeln ();
end;
min_el: = arr [1,1];
for number: = 1 to 5 do
for col: = 1 to 5 do
if col = number then
if arr [number, col] <min_el then
min_el: = arr [number, col];
writeln (‘The minimum element of the main diagonal:’, min_el);
writeln (‘Transformed array:’);
for number: = 1 to 5 do
begin
for col: = 1 to 5 do
begin
arr [number, col]: = arr [number, col] / min_el;
write (arr [number, col]: 5: 1);
end;
writeln ();
end;
end.