hôm nay cửa hàng bán được tối đa không quá 100 khách hàng có khách hàng có một hóa đơn bán hàng có tổng số tiền cụ thể luôn luôn là số nguyên không quá 100 đồn
hôm nay cửa hàng bán được tối đa không quá 100 khách hàng có khách hàng có một hóa đơn bán hàng có tổng số tiền cụ thể luôn luôn là số nguyên không quá 100 đồng 1.Em hãy viết chương trình Pascal thực hiện các công việc sau một nhập số lượng khách hàng của hôm nay bằng cách sử dụng vòng lặp 2. nhập số tiền của từng khách hàng hôm nay 3.xếp tiền của khách hàng phải trả là nhỏ nhất 4. Xuất số lượng khách hàng có số tiền phải trả chia hết cho 2
Lời giải 1 :
var n,i,min,c: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so khach hang:');readln(n);
for i:=1 to n do
begin
write('nhap so tien cua khach hang thu ',i,':');
readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min > a[i] then min:=a[i];
writeln('so tien cua khach hang phai tra nho nhat la:',min);
c:=0;
for i:=1 to n do
if a[i] mod 2 =0 then c:=c+1;
writeln('so khach hang co so tien phai tra chia het cho 2 la:',c);
readln;
end.
(mong dc 5* + hay nhất)
Thảo luận
Lời giải 2 :
uses crt;
var A : array [1 .. 100] of integer;
i, n, m, d : integer;
begin
clrscr;
write('Nhap so khach hang : '); readln(n);
for i := 1 to n do
begin
write('Nhap so tien KH ', i ,' : ');
readln(A[i]);
end;
d := 0; m := A[1];
for i := 1 to n do
begin
if A[i] mod 2 = 0 then d := d + 1;
if A[i] < m then m := A[i];
end;
writeln('Tien khach hang tra nho nhat : ', m);
writeln('So luong KT tien tra chia het cho 2 : ', d);
readln
end.
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 :))Copyright © 2021 HOCTAP247