uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.
Viết chương trình tích P=1*2*3*...*n dừng khi P>2000
Đề: Hãy viết chương trình Pascal hoàn chỉnh nhập vào điểm thi 1 lớp. Sau đó tính điểm trung bình của cả lớp. Tìm điểm thi cao nhất rồi in kết quả ra màn hình. Biết điểm thi, số lượng học sinh của lớp được nhập từ bàn phím.
Giúp mình với ạ.
Em hãy tìm hiểu bài toán sau:
Bài toán con thỏ, một trong những bài toán điển hình về dãy số Fibonacci, được nhà toán học Ý Fibonacci phát biểu như sau:
Giả sử vào tháng thứ nhất có một cặp thỏ sơ sinh. Từ ba tháng tuổi trở đi, mỗi tháng cặp thỏ sẽ sinh trưởng ra một cặp thỏ con ( giả sử gồm một thỏ đực và thỏ cái);và quá trình sinh sản cứ phát triển . Hỏi sau n tháng thì có bao nhiêu con thỏ.
Câu hỏi:
+ Hãy viết chương trình để tính xem phải cần ít nhất là mấy tháng để có được 10 cặp thò
Nhược điểm của biến mảng? Trả lời nhanh giùm mình nha mình đang cần gấp
Viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình tổng phần tử có giá trị là số chia hết cho 3 và 5
Viết CT in ra màn hình các số chẵn trong dãy có n số nguyên a
Câu 1 : Viết chương trình nhập vào một dãy số nguyên gồm n phần tử
a) in ra dãy số vừa nhập
b) in ra giá trị lớn nhất, nhỏ nhất của dãy số
Câu 2 viết chương trình nhập vào 1 dãy số gồm n phần tử
a) in ra dãy số vừa nhập
b) in ra các số lẻ
c) in ra các số chẵn
Mn giải giúp em với ạ. Em đang cần gấp. Em cảm ơn
Viết chương trình cho phép nhập vào dãy số nguyên gồm n phần tử (1<=n<=100)
a) Tính trung bình cộng của các phần tử lớn hơn 0 có trong dãy số (kết quả làm tròn hai chữ số thập phân).
b) In ra mang hình các số nguyên tố có trong dãy số trên.
Mọi người giúp mình bài này với, xin cảm ơn rất nhiều ạ!
Mọi người giúp mình bài này với, mình đang cần gấp!!!
