KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
viết chương trình tính tổng giá trị các số trong dãy số Em cảm ơn!
By Mary
viết chương trình tính tổng giá trị các số trong dãy số
Em cảm ơn!
program Tongdaysp; var S: array [1..10000] of Real; tong: Real; n, i:Integer; Begin readln(n); for i:= 1 to n do readln(S[i]); for i:= 1 to n do tong:= tong + S[i]; write(tong:0:3); End.
Uses crt; Var i, n: integer; S: real; A: ARRAY[1..100] OF REAL; BEGIN Clrscr; Repeat Write(‘Nhap so cac so trong day so: ‘); Readln(n); Until n>0; For i:=1 to n do Begin Write(‘A[‘,i,’]: ‘); Readln(A[i]); End; For i:=1 to n do S:=S+A[i]; Write(‘Tong day so tren la: ‘,S:0:3); Readln; END.
Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!
program Tongdaysp;
var
S: array [1..10000] of Real;
tong: Real;
n, i:Integer;
Begin
readln(n);
for i:= 1 to n do
readln(S[i]);
for i:= 1 to n do
tong:= tong + S[i];
write(tong:0:3);
End.
Uses crt;
Var i, n: integer;
S: real;
A: ARRAY[1..100] OF REAL;
BEGIN
Clrscr;
Repeat
Write(‘Nhap so cac so trong day so: ‘); Readln(n);
Until n>0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’]: ‘);
Readln(A[i]);
End;
For i:=1 to n do S:=S+A[i];
Write(‘Tong day so tren la: ‘,S:0:3);
Readln;
END.
Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!