Question

用Pascal编写以下要求

输入5个整数组

用户输入一个字符。

如果用户输入字符“G”或“g”，则查找数组中最大的元素并显示该元素的索引。

如果用户输入字符“R”或“r”，则将数组的元素从大到小排序。

如果用户输入字符“E”或“e”，则求数组元素乘积的平方根

Answer 1

Answer 2

program 元素查找与排序; uses crt; const n=5; var a:array[1..n] of integer; i,max,index,product:integer; choice:char; begin writeln('请输入五个整数：'); for i:=1 to n do readln(a[i]); write('请输入字符：'); readln(choice); if (choice='G') or (choice='g') then begin max:=a[1]; for i:=1 to n do if max<a[i] then begin max:=a[i]; index:=i; end; writeln('最大元素的索引为：',index); end else if (choice='R') or (choice='r') then begin for i:=1 to n-1 do for j:=1 to n-i do if a[j]<a[j+1] then begin a[0]:=a[j]; a[j]:=a[j+1]; a[j+1]:=a[0]; end; writeln('排序后的结果为：'); for i:=1 to n do write(a[i],' '); end else if (choice='E') or (choice='e') then begin product:=1; for i:=1 to n do product:=product*a[i]; writeln('数组元素乘积的平方根为：', sqrt(product):2:2); end else writeln('输入有误！'); end.