Trần Tăng Ngọc Diệu
Hỏi từ APP VIETJACK
Câu 2. Cho một mảng A gồm 600 phần tử kiểu số nguyên, lưu trữ số tiền quyên góp của 600 HS ở một trường A. Một bạn trong nhóm đã viết xong phần nhập dữ liệu cho mảng A, còn lại là phần tính tổng các phần tử của mảng A, xuất tổng và kết thúc chương trình. Em hãy dùng ngôn ngữ lập trình Pascal, viết đoạn chương trình còn lại đó.
Program ct_tinh_tong;
Uses crt;
Var j: integer;
……………………………… // Phần khai báo biến tổng HS tự điền vào
A: array[1..600] of integer;
Begin
CLRSCR;
For j:=1 to 600 do Readln( a[j] );
// Phần tính tổng, xuất tổng và kết thúc chương trình của HS tự làm
Program ct_tinh_tong;
Uses crt;
Var j: integer;
……………………………… // Phần khai báo biến tổng HS tự điền vào
A: array[1..600] of integer;
Begin
CLRSCR;
For j:=1 to 600 do Readln( a[j] );
// Phần tính tổng, xuất tổng và kết thúc chương trình của HS tự làm
Quảng cáo
1 câu trả lời 265
Program ct_tinh_tong;
Uses crt;
Var j,rs: integer;
A: array[1..600] of integer;
Begin
CLRSCR;
For j:=1 to 600 do Readln( a[j] );
Uses crt;
Var j,rs: integer;
A: array[1..600] of integer;
Begin
CLRSCR;
For j:=1 to 600 do Readln( a[j] );
for j:=1 to 600 do rs:=rs+a[j];
writeln(s);
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45518
-
Hỏi từ APP VIETJACK28426
Gửi báo cáo thành công!
