viết chương trình cho phép người dùng nhập vào các số nguyên tùy thích cho tới khi nào chán thì thôi. xuất ra màn hình tổng các số đã nhập vào
2 câu trả lời
- trangthao118
program ct; SO NHAP VAO
uses crt;
var i,n,s:integer;
A:array[1..100] of integer; SO NHAP VAO
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
s:=1
for i:=1 to n do s:=s+A[i];
write
readln
end.
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
s:=0;
for i:=1 to n do s:=s+A[i];
write('tong la:',s);
readln
end.
Câu hỏi trong lớp
Xem thêm