1. Hãy viết ctrinh nhập vào một dãy số N số nguyên từ bàn phím ( N là số nguyên dương dc nhập vào từ bàn phím và N >=10). Tính và in ra màn hình các yêu cầu sau:
a. Tính tổng các số vừa nhập
b. Tích tích các số vừa nhập
c. Tính TB của các số vừa nhập
2/ giả sử các HS trog lớp đc quản lý theo số thứ tự 1,2,3,4... Hãy viết ctrinh nhập vào các điểm toán, văn cho N HS ( N nguyên dương, đc nhập từ bàn phím)
a. Tính Điểm TB cho các HS đó và in ra màn hình HS có ĐTB cao nhất và thấp nhất.
b. Hãy đếm xem có bnhieu HS đạt loại giỏi ( toán,văn >=6.5 và ĐTB >=8,0)
Các bạn giúp mình với nha
Lời giải :
Câu 1 :
var a: array[1..32000] of integer ;
i,n,tong,tich,trungbinh : integer ;
begin
if n >= 10 then
begin
write('Nhap N=');
readln(n);
end;
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0; tich:=1 ; trungbinh:=0;
for i:= 1 to n do
begin
tong:=tong+a[i];
tich:=tich*a[i];
trungbinh:=(trungbinh+a[i])/i ;
end;
write('Tong la :',tong);
write('Tich la:',tich);
write('Trung binh la:',trungbinh);
readln
end.
Câu 2 là một câu hỏi tương đối hay mình sẽ thưởng cho bạn nào có lời giải hay nhất 