Naila Nguyễn
Hỏi từ APP VIETJACK
Cho mảng A gồm n phần tử thuộc kiểu nguyên (n<=300). Tính và in ra tổng các phần tử của mảng A.
Quảng cáo
2 câu trả lời 316
3 năm trước
program mang;
var i: longint;
a: array [1..10] of longint;
function fb: real;
Begin
tb:= 0;
for i:= 1 to 10 do tb:= tb + a [i];
tb:= tb/10 ;
end;
Begin
for i:= 1 to 10 do read ( a[i] );
write ( tb:10:1 );
Readln;
end.
3 năm trước
program mang;
var i: longint;
a: array [1..10] of longint;
function fb: real;
Begin
tb:= 0;
for i:= 1 to 10 do tb:= tb + a [i];
tb:= tb/10 ;
end;
Begin
for i:= 1 to 10 do read ( a[i] );
write ( tb:10:1 );
Readln;
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!
