подскажите... Опции

[Stellar_light]

Program l;
uses crt;
const
Var a:array[1..n] of itenger;
max,i:integer;
begin
clrscr;
randomize
for i:=1 to n do a[i]:=random;
for i:=1 to n do write(a[i],' ');
writeln;
max:=a[i];
for i:2 to n do if a[i]>max then begin max:=a[i];
end;
writeln('Max= ',max:2,i:2);
readln;
end.
скажите правильно ли составлена программа поиска максимального элемента матрицы?она почему то не работает, подскажите что не так?

[S2DenT]

Program l;
uses crt;
const
Var a:array[1..n] of itenger;
max,i:integer;
begin
clrscr;
randomize
for i:=1 to n do a[i]:=random;
for i:=1 to n do write(a[i],' ');
writeln;
max:=a[i];
for i:2 to n do if a[i]>max then begin max:=a[i];
end;
writeln('Max= ',max:2,i:2);
readln;
end.
скажите правильно ли составлена программа поиска максимального элемента матрицы?она почему то не работает, подскажите что не так?

ну вообще матрицу(массив) лучше вводить процедурой!=)

program massiv;
uses crt;
const n=5;
type mas= array [1..n] of integer;
var a:mas;
    i:integer;
    max:real;
            procedure wwod(var a:mas);
             var k:integer;
             begin
                                       for k:=1 to n do
                                       begin
                                       write ('[',k,']=');
                                       readln (a[k]);
                                       end;
                                       end;
                                       begin
                                                         clrscr;
                                                         write ('Введите матрицу');
                                                         writeln;
                                                         wwod (a);
                                                         max:=a[1];
                                                         for i:=1 to n do
                                                         if a[i]>max then max:=a[i];
                                                         writeln ('Максимальный элеиент матрицы-->',max);

                                                         end.
                                       
             

 const n=5;  

5 это число элементов массива.
если надо, то можно изменить на свое значение!=)