program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array[1..10,1..10]of integer;
    x:array[1..10]of integer;
    n,i,j,max:integer;
begin
write('n=');readln(n);
randomize;
writeln('massiv:');
for i:=1 to n do
   begin
     x[i]:=random(10);
     write(x[i],' ');
   end;
writeln;
writeln('matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=random(20)-9;
         write(a[i,j]:3);
       end;
     writeln;
   end;
readln;
Writeln('Obrab matrica:');
for i:=1 to n do
if i mod 2 = 0 then
for j:=1 to n do
a[i,j]:=x[j];
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:3);
     writeln;
   end;
readln;
max:=x[1];
for i:=1 to n do
if x[i]>max then max:=x[i];
writeln('max=',max);
readln
end.