1)const n=10;var a:array[1..n] of integer;i,min,s:integer;beginfor i:=1 to n do begin a[i]:=random(81)+10; write(a[i]:4); end;writeln;min:=a[1];for i:=1 to n do begin if a[i]<min then min:=a[i]; s:=s+a[i]; end;writeln('min = ',min);writeln('s = ',s);end.Пример: 54 58 67 78 58 79 54 78 44 60min = 44s = 6302)const n=9; m=6;var a:array[1..n,1..m] of integer;i,j:integer;beginfor i:=1 to n do for j:=1 to m do a[i,j]:=i;for i:=1 to n do begin for j:=1 to m do write(a[i,j]); writeln;end;end.Результат: 111111222222333333444444555555666666777777888888999999