Viết chương trình nhập vào N số nguyên từ bàn phím. Hãy tính và in ra màn hình tổng của các số vừa được nhập vào
2 câu trả lời
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];
Writeln('tong cac so la:=',s);
Readln;
End.
program tinh;
uses crt;
type ArrInt = array[1..100000] of integer;
var i, n, s : integer;
A : ArrInt;
begin
clrscr;
s := 0;
write('so luong so nguyen can nhap la :');readln(n);
for i:= 1 to n do
begin
write('nhap so nguyen thu ', i, ' :');readln(A[i]);
s := s + A[i];
end;
writeln('tong cac so vua nhap la :', s);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
