1)const n=10;var a:array[1..n] of integer;i,min,s:integer;beginfor i:=1 to n dobegina[i]:=random(81)+10;write(a[i]:4);end;writeln;min:=a[1];for i:=1 to n dobeginif 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 dofor j:=1 to m do a[i,j]:=i;for i:=1 to n dobeginfor j:=1 to m do write(a[i,j]);writeln;end;end.Результат: 111111222222333333444444555555666666777777888888999999