var a:array[1..1000] of integer;
i,n,d,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then d:=d+1;
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
writeln('Co ',d,' so le');
write('So lon nhat la ',max);
readln
end.
Viết chương trình nhập 1 mảng số nguyên dương gồm n phần tử
a, in ra màn hình mảng vừa nhập (bỏ qua phần này!)
b, nhập số nguyên dương k. tính tổng các số trong mảng LỚN hơn k.
c, tìm kiếm các cặp 2 phần tử liên tiếp có tổng chia hết cho 10. in ra màn hình các cặp số và vị trí của nó!.
d, tìm phần tử lớn nhất và số nguyên dương lớn nhất không xuất hiện trong mảng nhưng nhỏ hơn phần tử lớn nhất trong mảng.
e, tìm số xuất hiện nhiều nhất(lặp lại lắm nhất) và số lần xuất hiện của số đó trong mảng.( Nếu tìm được nhiều số có số lần xuất hiện bằng nhau thì chỉ cần in ra số tìm được đầu tiên ).
f, đếm xem trong mảng có bao nhiêu số thân thiện :)) ( Số thân thiện là số có nhiều hơn 1 chữ số và nó chia hết cho TỔNG các chữ số của nó).
----------làm bằng procedure và function giúp mình kaka------------
<3 Cảm ơn các procoder :))
Viết chương trình nhập 1 mảng số nguyên gồm n phần tử
- in ra các phần tử của mảng vừa nhập
- In ra các phần tử có giá trị chẵn
- Đếm xem có tất cả bao nhiêu phần tử chẵn. In ra tổng số phần tử chẵn
Viết chương trình nhập vào 1 dãy số nguyên a gồm n phần tử(0<n<100),viết chương trình xử lý các câu sau:
a) Tìm và in ra màn hình số lớn nhất,bé nhỏ của dãy a và vị trí của các số đó
Viết chương trình nhập vào 3 số nguyên từ bàn phím, in ra màn hình giá trị lớn nhất và giá trị nhỏ nhất trong 3 số nguyên đã nhập. Mình cần gấp ạ
Giải giúp mình nhé
Tạo file mang tên BAI2.pas
Viết chương trình nhập vào một xâu kí tự A.
a) In xâu A ra màn hình.
b) Cho biết có bao nhiêu từ trong xâu A.
c) Nhập vào xâu kí tự B, cho biết xâu B xuất hiện bao nhiêu lần trong xâu A.
Viết chương trình nhập vào số nguyên n in ra màn hình các số nguyên tố nhỏ hơn và tổng các số nguyên tố đó (pascal)
viết chương trình nhập 1 mảng số nguyên gồm 20 phần tử 9. biết phần tử đầu là 20. hãy in ra mảng đó
giải gấp giúp mình vs
nhập vào mảng số nguyên a với n phần tử (<=10000) pascal đếm số lượng phần tử x có trong dãy a với x đc nhập từ bàn phím
Câu 3: Nhập một mảng gồm N phần tử.
A, tính tổng chẵn, tổng lẻ của các phấn tử trong mảng.
B, Tìm phần tử lớn nhất, nhỏ nhất trong mảng.
C, Tìm kiếm xem phần tử K nào đó có tồn tại trong mảng hay không?
giúp e với ạ
