Viết chương trình nhập 3 số nguyên và tính trung bình cộng các số lẻ? Giúp mình với cm
2 câu trả lời
uses crt;
var a:array[1..3]of longint; i,d,tong:longint;
begin
clrscr;
write('Nhap 3 so=');readln(a[1],a[2],a[3]);
for i:=1 to 3 do if a[i] mod 2=1 then begin inc(d); inc(tong,a[i]); end;
writeln(tong/d:0:5);
readln;
end.
///////////////////////////////////////////
Test:
Mình không học Pascal nên chỉ nói cách làm thôi nhé!
Khai báo biến :
a = 1
Tong = 0
TBC = 0
So_le = [] (mảng rỗng)
Bước 1: Nhập số
Bước 2 : Lọc các số lẻ trong 3 số nhập vào.
Bước 3 : Cho các số lẻ vào trong một mảng.
Bước 4 : Nếu độ dài của mảng = 1 thì trung bình cộng = phần tử đầu tiên.
Nếu không thì : lặp lại độ dài của mảng [ thay đổi Tong phần tử a ; thay đổi a 1]
Bước 5 : TBC = Tong / độ dài mảng.
In TBC ra màn hình
Mình có source code python, bạn tham khảo ở dưới ạ. Mong MOD không xóa ạ:
