-
Câu hỏi:
Viết chương trình tính tổng dãy n số nguyên với n được nhập từ bàn phím.
Lời giải tham khảo:
Program tinh_tong;
Uses crt;
Var A: array[1..20] of integer;
i, n, Tong: integer;
BEGIN
Clrscr;
Write(‘Nhap do dai cho mang n= ’); readln(n);
For i:= 1 to n do
Beign
Write(‘A[’,i,’]= ’); readln(A[i]);
End;
For i:= 1 to n do Tong:= Tong + A[i];
Write(‘Tong day so la: ’,Tong); Readln;
END.
Hãy trả lời câu hỏi trước khi xem đáp án và lời giải
Câu hỏi này thuộc đề thi trắc nghiệm dưới đây, bấm vào Bắt đầu thi để làm toàn bài
QUẢNG CÁO
CÂU HỎI KHÁC
- Cách khai báo mảng nào sau đây chương trình không báo lỗi?
- Sau khi thực hiện đoạn chương trình sau: s:=1; for i:= 1 to 3 do s:= s*i;Giá trị của biến s bằng bao nhiêu?
- Cho đoạn chương trình sau: a := 1; b: = 7; While a
- Lệnh lặp for..to..do của Pascal trong mỗi vòng lặp, biến đếm thay đổi như thế nào?
- Trong phần mềm GeoGebra công cụ nào dùng để tạo ra trung điểm của đoạn thẳng?
- Giá trị của các mảng được cho như sau?
- Với câu lệnh for i:=1 to 10 do x:=x+1; biến i được khai báo thuộc kiểu dữ liệu nào?
- Trong các câu lệnh lặp Pascal sau đây, câu nào chương trình không báo lỗi?
- Các câu lệnh Pascal sau có đúng không? Hãy sửa lại cho đúng nếu sai?
- Viết chương trình tính tổng dãy n số nguyên với n được nhập từ bàn phím?
ADMICRO
ADMICRO
