uses crt;
var n,i:integer;
a:array[1..100]of integer;
s,tbn:longint;
kq:real;
begin
clrscr;
write('nhap chieu dai day so:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly------------------------------}
s:=1;
for i:=1 to n do
s:=s*a[i];
if s>0 then
begin
tbn:=1;
for i:=1 to n do
tbn:=tbn*a[i];
kq:=exp((1/n)*ln(tbn));
end;
writeln('tich cua day la: ',s);
writeln('trung binh nhan cua day la: ',kq:4:2);
readln;
end.
Viết chương trình nhập dãy số a gồm n phần tử (3<=n<=120)
a)In ra màn hình số lớn thứ m(m nhập từ bàn phím và 1<=m<=n)
b)Chọn các số sao cho có tổng của chúng lớn nhất theo nguyên tắc không chọn 3 số liên tiếp nhau trong dãy .In ra màn hình tổng và vị trí các số đã chọn.
giúp mình vs viết trên pascal nhá!
Cho dãy số 2;5;8;11;... Viết Chương trình yêu cầu nhập số nguyên N từ bàn phím tính tích E sau đó in kết quả ra màn hình E=2.5.8.11....n
Viết chương trình nhập vào số nguyên dương 𝑛. Nhập tiếp dãy gồm 𝑛 số nguyên. Hãy đếm số lượng số của dãy vừa nhập có đúng 3 chữ số.
Câu 1: Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. Độ dài của dãy cũng được nhập từ bàn phím
CT mẫu:
uses crt;
var n,i:integer;
a:array[1..100] of integer;
Begin
clrscr;
write('nhap so phan tu cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('day so da nhap:');
for i:=1 to n do write(a[i]:2);
readln;
end.
giúp mình với mình cảm ơn trước
Nhập một dãy n số nguyên. Tính trung bình cộng của các phần tử âm và các phần tử dương trong dãy vừa nhập.
viết chương trình nhập hai số nguyên m,n sau đó tính trung bình cộng bình phương các số nguyên tử m đến n
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
hãy mô tả thuật toán tính tổng S=1+2+3+...+100 và tính tích P=1.2.3...100giúp mình với ạ, mình cảm ơn
Viết chương trình nhập vào một dãy n số nguyên, tính tổng các số vừa nhập, thông báo kết quả ra màn hình
