Bài. Viết CT sử dụng biến mảng nhập vào 4 phần tử là số nguyên - Tính trung bình cộng của dãy số nguyên đó - Tìm tất cả các phần tử là số chẵn, lẻ - Tìm phần t
Bài. Viết CT sử dụng biến mảng nhập vào 4 phần tử là số nguyên - Tính trung bình cộng của dãy số nguyên đó - Tìm tất cả các phần tử là số chẵn, lẻ - Tìm phần tử có giá trị lớn nhất, nhỏ nhất - Đếm số phần tử lẻ, chẵn Mong mn lm chính xác, rõ ràng, nếu có thể gửi chương trình chạy thì càng tốt. THANK YOU VERY MUCH
Lời giải 1 :
uses crt;
var a: array[1..4] of integer;
i,min,max,dl,dc: integer;
tbc: real;
begin
clrscr;
for i:=1 to 4 do
begin
write ('nhap phan tu thu ',i,': '); readln (a[i]);
if a[i] mod 2=0 then dc:=dc+1;
if a[i] mod 2<>0 then dl:=dl+1;
if a[i]>max then max:=a[i];
tbc:=tbc+a[i];
end;
tbc:=tbc/4;
min:=a[1];
for i:=2 to 4 do
if a[i]<min then min:=a[i];
writeln ('trung binh cong cua day so nguyen tren la: ',tbc:1:2);
write ('cac so le trong day: ');
for i:=1 to 4 do if a[i] mod 2<>0 then write (a[i],' ');
writeln;
write ('cac so chan trong day: ');
for i:=1 to 4 do if a[i] mod 2=0 then write (a[i],' ');
writeln;
writeln ('so lon nhat: ',max);
writeln ('so be nhat: ',min);
writeln ('trong mang so ',dl,' phan tu le');
writeln ('trong mang so ',dc,' phan tu chan');
readln;
end.
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK