var a:array[1..200] of integer;
i,n:integer;
p:longint;
begin
write('Nhap so luong phan tu n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
writeln('Cac phan tu le la: ');
for i:=1 to n do
if a[i] mod 2 = 1 then
begin
write(a[i]:7);
p:=p*a[i];
end;
write('Tich cac phan tu le la ',p);
readln;
end.
viết chương trình nhập n số nguyên từ bàn phím , nhập giá trị cho từng phần tử từ 1 đến N, đếm các số chẵn và tính tổng các số lẻ, hiện kết quả ra màn hình Giúp mik với ạ
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á!
Nhập vào N phần tử đếm các số âm tính TBC và in ra màn hình
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
Đề bài: vct tính tổng các số chẵn, số lẻ từ 1-n ( được nhập từ bàn phím), sau đó in tổng chẵn, tổng lẻ ra màn hình
1) Viết chương trình nhập vào mảng số nguyên A
a) In ra màn hình các phần tử của mảng số nguyên đó, mỗi phần tử cách nhau 2 kí tự
b) Tính và in ra màn hình trung bình cộng của các phần tử trong mảng
c) Cho biết phần tử có giá trị lớn nhất và tìm độ chênh lệch giữa phần tử lớn nhất và các phần tử trong mảng
2) Viết chương trình thực hiện các yêu cầu sau:
a) Viết chương trình nhập vào một dãy số thực gồm N phần tử
b) Đếm và in ra màn hình số lượng phần tử là số chẵn, số lẻ, số dương, số âm
c) Cho biết có bao nhiêu phần tử vừa lớn hơn 2 vừa bé hơn 5 và tính tổng các phần tử đó
d) Tìm giá trị lớn nhất và cho biết số ước của giá trị lớn nhất đó
Viết chương trình nhập vào từ bàn phím số nguyên dương n,sử dụng câu lệnh lặp và câu lệnh điều kiện để tính tổng các giá trị là số lẻ trong phạm vi từ 1 đến N,sau đó in ra màn hình
Viết chương trình nhập N số nguyên từ bàn phím in các số lẻ ra màn hình(sử dụng câu lệnh lặp với số lần biết trước)
Đề bài: Viết chương trình nhập n số nguyên từ bàn phím, in các số lẻ ra màn hình (sử dụng câu lệnh lặp với số lần biết trước)
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
