Đọc vào một dãy số cho đên khi tổng của chúng lớn hơn 2014 a) Tính tổng các số dương chia hết cho 3 b) tính trung bình cộng các số đã đọc vào
1 câu trả lời
program Tong;
Uses crt;
Var
a:array[1..100] of integer;
i,s,d,sd:integer;
tbc:real;
Begin
Clrscr;
Writeln('Nhap vao cac so');
s:=0;i:=1;d:=1;
While s<=2014 do
Begin
readln(a[i]);
s:=s+a[i];
d:=d+1;
end;
sd:=0;
tbc:=0;
for i:=1 to d do if (a[i]>0) and (a[i] mod 3=0) then sd:=sd+a[i];
tbc:=s/d;
Writeln('Tong cua cac so chia het cho 3 la ',sd);
write('TBC = ',tbc:5:2);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 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 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
