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
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
By Raelynn
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.