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

[LIL_VAdiK]

Дан одномерный массив N[N]. найти max (a1,a2....an) и min (a1,a2....an)

[Sazary]

А что непонятно?
Во-первых,

Дан одномерный массив N[N]

Может, все-таки a[N]?

Пусть есть переменная max. Приравниваете ее к a1. Далее в цикле проходите по всем элементам. Если a[i]>max, то max = a[i].
С минимумом аналогично.

[Иван 883]

Если код все еще нужен, то вот так вроде

uses crt;
const m=200;
type mas=array[1..m] of real;
var a:mas;
    n:integer;
    max,min:real;

procedure vvod(var b:mas; var n:integer);
var i:integer;
begin
  clrscr;

    repeat
      writeln('Введите количество элементов массива');
      readln(n);
    until n<=m;
      write ('Введите элементы массива');
      writeln;
    for i:=1 to n do
      begin
        writeln('Введите элемент N=',I);
        readln(b[i]);
      end;
end;

procedure nouck(b:mas; n:integer; var max,min:real);
var i:integer;
begin
  max:=b[1];
  min:=b[1];
  for i:=1 to n do
    begin
      if b[i]<min then min:=b[i];
      if b[i]>max then max:=b[i];
    end;
end;

procedure vbIvod(max,min:real);
begin
  writeln('Максимальное значение =',max:5:5);
  writeln('Минимальное значение =',min:5:5);
end;
begin
  vvod(a,n);
  nouck(a,n,max,min);  
  vbIvod(max,min);
  readln;
end.