Var a:array[1..20] of integer;
i,n,d:integer;
Begin
For i:=1 to 20 do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
if a[i] = 3 then d:=d+1;
End;
Write('Co ',d,' chu so 3');
Readln
End.
viết chương trình nhập vào mảng a với dãy các số nguyên
a.tính tổng dãy số vừa nhập
b.nhập vào 1 số nguyên x bất kì, đếm xem x xuất hiện bao nhiêu lần trong mảng a.
viết chương trình nhập vào mảng a với dãy các số nguyên
a.tính tổng dãy số vừa nhập
b.nhập vào 1 số nguyên x bất kì, đếm xem x xuất hiện bao nhiêu lần trong mảng a.
Mọi người giúp mình giải xin cảm ơn
Viết chương trình nhập n phần tử cho mảng a1..an là số nguyên. a. In mảng vừa nhập ra màn hình. b. In ra màn hình số lớn nhất
chương trình nhập vào một mảng số nguyên gồm n phần tử rồi xuất ra màn hình các số chẵn trong mảng đã nhập Giúp mình vs ạ, mai mình thi rồi
Câu 2 Viết chương trình nhập một mảng số nguyên A có độ dài 50 phần tử với số lượng phần tử được nhập từ bàn phím. Thực hiện in ra màn hình các số lẻ có trong mảng.
Viết chương trình nhập mảng A có N phần tử là số nguyên (N được nhập bất kì từ bàn phím). In ra màn hình mảng vừa nhập, mỗi phần tử cách nhau 1 dấu cách trống.
Viết chương trình thực hiện các yêu cầu: (1điểm)
- Nhập vào một mảng A có n phần tử là số nguyên.(n <= 50)
- In ra màn hình tổng các số lớn hơn 0 trong mảng.
Viết chương trình nhập vào một mảng số nguyên gồm n phần tử (n<=100) Tính và in ra màn hình trung bình cộng giá trị phần tử của mảng
Viết chương trình nhập mảng A có N phần tử là số nguyên (N được nhập bất kì từ bàn phím). Hãy đếm xem có bao nhiêu phần tử dương.
