Viết chương trình nhập 10 số bất kỳ, sau đó tính và in ra màn hình tổng và trung bình cộng 10 số đó
2 câu trả lời
uses crt;
var a:array[1..10]of integer;
i,t:integer;
begin
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to 10 do
t:=t+a[i];
writeln('Tong cua day la: ',t);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
program bt;
Uses crt;
Var
i,tong:integer;
A:array[1..1000] of integer;
Begin
Clrscr;
tong:=0;
for i:=1 to 10 do
Begin
Readln(A[i]); tong:=tong+A[i];
end;
write('Tong la: ',tong);
write('Trung binh cong la: ',tong/10:5:1);
Readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 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 9 có lời giải chi tiết
