Question

定义一个包含10个元素的一维数组，从键盘分别给这个一维数组赋值，求出其中的最大值、最小值及它们的下标

2.定义一个3行5列的二维数组，从键盘给这些元素赋值，找出所有元素中的最大值，并找出其行列下标。
3.编程序。输入10个整数，将其中最大数与第1个数交换、最小值与第10个数交换，然后输出所有数。
4.定义三个3*4的二维数组，前两个数组分别从键盘赋值，然后将前两个数组元素的乘积分别赋值给第三个数组。

5.用选择法和冒泡法分别给一个一维数组按从小到大的顺序重新排列。（附加题）
指针：1编程序，用指针变量来交换两个实型变量的值。实型变量值从键盘输入。
2.输入一个字符串，按相反次序输出其中的所有字符。要求用指向数组的指针变量来处理其中的字符。

Answer 1

2.program wt(input,output);
var
a:array[1..3,1..5]of longint;
i,j,max,h,l:longint;
begin
for i:=1 to 3 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 3 do
for j:=1 to 5 do
if a[i,j]>max then begin max:=a[i,j];h:=i;l:=j;end;
writeln(max);
writeln('hang:',h,'lie:',l);
end.
3.program wt(input,output);
var
a:array[1..10]of longint;
i,max,min,m,x,t:longint;
begin
min:=maxint;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<min then begin min:=a[i];m:=i;end;
if a[i]>max then begin max:=a[i];x:=i;end;
end;
t:=a[m];a[m]:=a[1];a[1]:=t;
t:=a[x];a[x]:=a[10];a[10]:=t;
for i:=1 to 10 do
write(a[i],' ');
end.
4.program wt(input,output);
var
a,b,c:array[1..3,1..4]of longint;
i,j:longint;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i,j]);
for i:=1 to 3 do
for j:=1 to 4 do
read(b[i,j]);
for i:=1 to 3 do
for j:=1 to 4 do
c[i,j]:=a[i,j]*b[i,j];
for i:=1 to 3 do
begin
for j:=1 to 4 do
write(c[i,j],' ');
writeln;
end;
end.

Answer 2

这么多问题,,给个有心人帮你吧..