Массивы в Паскале

program mas;
uses crt;
var
   a:array[1..10]of integer;
   v,b,max,i:integer;
begin
  clrscr;
   for i:=1 to 10 do readln(a[i]);
    for i:=1 to 10 do write(a[i],' ');writeln;
  max:=a[1];
   for i:=1 to 10 do
      begin
        b:=a[i] div 2;
        v:=a[i]-b;
        v:=v-b;
         if a[i]<>0 then
          begin
            if v<>1 then if a[i]>max then max:=a[i];
          end;
       end;
  write(max);
end.

uses crt;
var a:array[1..4,1..6]of integer;i,j,max,i1,j1,p:integer;
begin
clrscr;p:=1;max:=-100;
for i:=1 to 4 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(200)-100;
write(a[i,j],' ');
if a[i,j]>max then begin max:=a[i,j];i1:=i;j1:=j;end;
if a[i,j] mod 7=0 then p:=p*a[i,j];
end;
writeln;
end;
writeln('матрица с замененным максимальным = ',max,' на произведение ',p);
for i:=1 to 4 do
begin
for j:=1 to 6 do
begin
if (i=i1)and(j=j1) then a[i,j]:=p;
write(a[i,j],' ');
end;
writeln;
end;
end.

program masivcik;
uses crt;
var
   a:array[1..4,1..6]of integer;
   i,j,b,c,max,k,l:integer;
   pro:longint;
begin
  clrscr;
  pro:=1;
    for i:=1 to 4 do
      begin
       for j:=1 to 6 do a[i,j]:=random(23);
      end;
       for i:=1 to 4 do
         begin
          for j:=1 to 6 do write(a[i,j]:4,' ');
          writeln;
         end;
          for i:=1 to 4 do
            begin
              for j:=1 to 6 do
                begin
                  b:=a[i,j] div 7;
                  c:=7*b;
                  c:=a[i,j]-c;
                  if a[i,j]<>0 then begin if c=0 then pro:=pro*a[i,j];end;
                end;
            end;
    max:=a[1,1];
    for i:=1 to 4 do
      begin
       for j:=1 to 6 do
         begin
          if a[i,j]>max then begin max:=a[i,j];k:=i;l:=j;end;
         end;
      end;
    write('max=',max,' ','pozicia:','(',k,',',l,')');writeln;
      for i:=1 to 4 do
        begin
          for j:=1 to 6 do begin if (i=k) and (j=l) then a[i,j]:=pro;end;
        end;
    write('proizvedenie elementov: ',pro);writeln;
    write('--------------------');writeln;
    for i:=1 to 4 do
      begin
       for j:=1 to 6 do write(a[i,j]:4,' ');
       writeln;
      end;
end.

var
 arr: array[1..100] of integer;
 i, n, max: integer;
begin
 max:=1;
 readln(n);
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if (arr[i]>arr[max]) and (arr[i] mod 2=0) then
      max:=i;
   end;
 writeln;
 writeln(arr[max]);
end.