проблема с массивом

[kommunist]

у меня вопрос в программе
прога должна создать массив и вывесте максимальное и мнимальное значение массива. вот мой код но выводит он совсем други значения

program massiv;
uses crt;
const n= 5;
type matr = array[1..n,1..n] of integer;

var a:matr;
    i:integer;
    min:integer;
    j:integer;
    max:integer;
begin
    randomize;
    clrscr;
    for i:= 1 to n do
begin
    for j:= 1 to n do
begin
    a[i,j]:=random(100);
    write(a[i,j],' ');
end;
    writeln;
end;
    readln;
begin
 for i:= 1 to n do
 begin
 for j:= 1 to n do
 begin
     max:=a[1,1];
     min:=a[1,1];
    if a[i,j]> max then
    max:=a[i,j];
    if a[i,j]<min then
    min:=a[i,j];
    write(min);
      write(max);
    readln;

    end;
    end;
    end;
    end.
зараннее всем благодарен

[Alex21]

max:=a[1,1];
min:=a[1,1];

Поставь перед входом в цикл.

write(min);
write(max);
readln;-

вынеси перед последним ЕНДом.

[SnakeMan]

Вот так должно работать.. Только Uses обратно поправь.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n= 5;
type matr = array[1..n,1..n] of integer;

var a:matr;
i:integer;
min:integer;
j:integer;
max:integer;
begin
randomize;
for i:= 1 to n do
begin
for j:= 1 to n do
begin
a[i,j]:=random(100);
write(a[i,j],' ');
end;
writeln;
end;
readln;
max:=a[1,1];
min:=a[1,1];
for i:= 1 to n do
for j:= 1 to n do
begin
if a[i,j]> max then
max:=a[i,j];
if a[i,j]<min then
min:=a[i,j];
end;
write(min,' ');
writeLN(max);
readln;

end.

[Alex21]

program massiv;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  //crt;
const n= 5;
type matr = array[1..n,1..n] of real;

var a:matr;
    i:integer;
    min:real;
    j:integer;
    max:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }

    randomize;
   // clrscr;
  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      a[i,j]:=random(100);
      write(a[i,j]:3:0,' ');
    end;
    writeln;
  end;
 // readln;
    max:=a[1,1];
    min:=a[1,1];
    for i:= 1 to n do
    begin
      for j:= 1 to n do
      begin
        if a[i,j]> max then max:=a[i,j];
        if a[i,j]< min then  min:=a[i,j];
      end;
    end;
  writeln('min = ',min:3:0);
  writeln('max = ',max:3:0);
  readln;
end.

Для удобочитаемости - сделал тип REAL, если надо - измени его обратно.

[kommunist]

вам всем большое!!!!