tính và in ra trung bình cộng của các số âm, dương, chẵn, lẽ.
giúp em với mai em thi r ạ 😨😭
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
9 tháng 4 2021
Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D
22 tháng 4 2023
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
2 tháng 1 2021
Input: Số a
Output: Kiểm tra xem a là số âm hay là số dương
Ý tưởng: Sau khi nhập a, chúng ta sẽ kiểm tra xem nếu a<0 thì a là số âm, nếu a>0 thì a là số dương còn nếu a=0 thì a không là số âm cũng không là số dương
Thuật toán
-Bước 1: Nhập a
-Bước 2: Nếu a<0 thì xuất a là số âm
Nếu a>0 thì a là số dương
Nếu a=0 thì a không là số âm cũng không là số dương
-Bước 3: Kết thúc
KV
5 tháng 5 2022
Var a:array[1..200] of real;
i,n,dem:integer;
s,tbc:real;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
s:=0;
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
QD
2
26 tháng 1 2022
Vì 4 số chẵn liên tiếp có trung bình cộng bằng 2007 (là 1 số lẻ) nên do đó 2 số tự nhiên chẵn liền trước và liền sau số trung bình cộng 2007 này là: 2006; 2008
Vậy 4 số tự nhiên chẵn liên tiếp đó là:
2004; 2006; 2008; 2010
ht
3 tháng 10 2021
Tổng số tuổi 4 người là: \(21\times4=84\left(tuổi\right)\)
Tổng số tuổi bố, mẹ, em là: \(25\times3=75\left(tuổi\right)\)
Tuổi Mai là: \(84-75=9\left(tuổi\right)\)
Tuổi em Mai là: \(9-4=5\left(tuổi\right)\)
10 tháng 5 2021
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t:4:2);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
Bạn viết rõ lại đề bài là của một lượng số bao nhiêu hay là số lượng số được nhập từ máy tính