Hamza Bounezra - 1 year ago 285

Pascal Question

I need to create a program that shows a square matrix (array) with 20 lines and 20 columns and then gives you the maximum and the minimum of this matrix.

I started with this code:

`program ex2dimarray;`

var

a: array [0..20, 0..20] of integer;

i, j: integer;

begin

for i := 0 to 3 do

for j := 0 to 3 do

a[i,j] := i * j;

for i := 0 to 3 do

begin

for j := 0 to 3 do

write(a[i,j]:2, ' ');

writeln;

end;

end.

Recommended for you: Get network issues from **WhatsUp Gold**. **Not end users.**

Answer Source

You declare an array of 20x20 but in your code you are using only a 3x3 block. Besides, the logic for finding the max and the min values is missing.

You can try something like this:

```
program ex2dimarray;
const
Dim = 20;
var
a: array [0..Dim, 0..Dim] of integer;
i, j, min, max: integer;
begin
// initialize the array
for i := 0 to Dim do
begin
for j := 0 to Dim do
a[i,j] := i * j;
end;
// search for max and min. You can initialize both to a[0,0]
min:= maxint;
max:= -maxint;
for i := 0 to Dim do
begin
for j := 0 to Dim do
begin
if (a[i,j] > max) then
max := a[i,j];
if (a[i,j] < min) then
min := a[i,j];
end;
end;
// print out the values
for i := 0 to Dim do
begin
for j := 0 to Dim do
write(a[i,j]:3, ' ');
writeln;
end;
writeln;
write('Max: ', max, ' Min: ', min);
writeln;
readln;
end.
```

Recommended from our users: **Dynamic Network Monitoring from WhatsUp Gold from IPSwitch**. ** Free Download**