0
0
viết Chương trình nhập xuất và tính tổng giá trị N phần tử mảng A?
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
445
206
uses crt;
var a: array [1..1000] of integer;
i,n,s: integer;
begin
clrscr;
write('nhap so luong phan tu: ');
readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,': '); readln(a[i]);
s:=s+a[i];
end;
writeln('xuat ',n,' phan tu cua mang A: ');
for i:=1 to n do write(a[i],' ');
writeln;
write('tong ',n,' phan tu cua mang A la: ',s);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1990
1608
uses crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
write ('Nhap N: '); readln (N);
for i:=1 to n do
begin
write ('Nhap phan tu thu A[',i,']: '); readln(a[i]);
s:=s+a[i];
end;
write ('Mang vua nhap: ');
for i:=1 to n do write (a[i]:4);
writeln;
writeln ('Tong la: ',s);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
445
206
đề yêu cầu "nhập", "xuất" mà a trai
445
206
bổ sung cái "xuất" nữa nha a zai
1990
1608
okok :)
Bảng tin