编程输入10个数,将这10个数逆序输出并求和(Turbo Pascal )

发布网友 发布时间：2024-07-07 09:42

我来回答

共5个回答

热心网友 时间：2024-07-09 18:08

#include<iostream>
using namespace std;
int main()
{
int p[10],a,s=0;
for(int i=0;i>10;++i)
{
cin>>a;
p[i];
s+=a;
}
for(int k=9;k<=0;--k)
cout<<p[k]<<endl;
cout<<"综合为s;
system("pause");
return 0;
}
直接写的没有编译。应该没有错误！

热心网友 时间：2024-07-09 18:08

var a:array[1..10] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin readln(a[i]); s:=s+a[i]; end.
for i:=10 downto 1 do
writeln(a[i]);
writeln;
write('s=',s);
end.
直接写的没有编译。应该没有错误！

热心网友 时间：2024-07-09 18:09

这是基础：
var
a:array[1..10]of integer;
i,l,m:integer;
begin
m:=0;(10个数的和)
for i:=1 to 10 do
begin
read(l);
a[10-i+1]:=l;（咱们可以逆推）
m:=l+m；
end;
for i:=1 to 10 do
write(a[i],' ');
writeln(m);
end.

热心网友 时间：2024-07-09 18:09

var a:array[1..10] of integer;
i,s:longint;
begin
for i:=1 to 10 do
begin read(a[i]); inc(s,a[i]); end;
for i:=10 downto 2 do write(a[i],' ');
writeln(a[1]);
write('Sum=',s);
end.
保证正确！

热心网友 时间：2024-07-09 18:10

var a:array[1..10]of longint;
s,i:longint;
begin
s:=0;{累加器清零}
for i:=1 to 10 do
begin
read(a[i]);
s:=s+a[i];{一边读入一边求和}
end;
for i:=10 downto 1 do
write(a[i],' ');{逆序输出}
writeln('he wei:'s);{输出和}
end.