n=int(input('nhap n: '))
a=[int(input('nhap a[%d]: '%i)) for i in range (1,n+1)]
sll=0
sl=0
slnt=0
dsnt=[0]*n
from math import sqrt
def ktnt(n):
    if (n<2): return False
    kt=True
    for i in range (2,int(sqrt(n))+1):
        if (n%i==0):
            kt=False
            break
    return kt
for i in range (n):
    if (a[i]%2!=0):
        sll+=1
        sl+=a[i]
    if (ktnt(a[i])==True):
        dsnt[slnt]=a[i]
        slnt+=1
a.sort()
print('so luong so le:',sll)
print('tong cac so le:',sl)
print('so luong so nguyen to:',slnt)
print('cac so nguyen to:',end=' ')
[print(dsnt[i],end=' ') for i in range (slnt)]
print('\nday sau khi sap xep tang dan:',end=' ')
[print(a[i],end=' ') for i in range (n)]

$\color{red}{\text{#Daoanhviet96}}$

Mảng là kiểu dữ liệu có cấu trúc bởi vì mảng (một chiều, hai chiều hay nhiều chiều) là kiểu có cấu trúc được đề cập tới sớm nhất trong các ngôn ngữ lập trình. Nó được xây dựng từ những kiểu dữ liệu dã có theo quy tắc khuôn dạng do ngôn ngữ lập trình cung cấp. Nó được dùng để chỉ định một nhóm đối tượng cùng một tính chất nào đó. Chẳng hạn, vectơ là một nhóm các số mà mỗi số ta có thể xác định chỉ cần biết chỉ số. Như vậy, để khai báo kiểu mảng phải chỉ ra kiểu dữ liệu chung của các phần tử và kiểu chỉ số.

Bài 2 (trang 79 sgk Tin học lớp 11): Tại sao phải khai báo kích thước của mảng?

Trả lời:

Mảng là 1 tập hợp các phần tử được đánh số có thứ tự thường là từ 0 hoặc 1cho nên khi khai báo mảng ta cần khai báo thêm kích thước để máy có thể cấp phát đủ bộ nhớ chứa số lượng các phần tử.

Bài 3 (trang 79 sgk Tin học lớp 11): Các phần tử của mảng có thể có những kiểu gì?

Trả lời:

Kiểu dữ liệu của mảng có thể là những kiểu dữ liệu chuẩn (integer,byte,real,…), kiểu dữ liệu có cấu trúc (string,kiểu bản ghi).

Bài 4 (trang 79 sgk Tin học lớp 11): Tham chiếu đến phần tử của mảng bằng cách nào?

Trả lời:

Tham chiếu đến phần tử của mảng ta sử dụng tên mảng và chỉ số đặt trong cặp dấu ngoặc [ và ].

Ví dụ a[1]. (a là tên mảng ,1 là chỉ số ).

Bài 5 (trang 79 sgk Tin học lớp 11): Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1…AN có giá trị tuyệt đối lớn hơn 1000. Hãy cho biết dãy A có phải là một cấp số cộng hay không và thông báo kết quả ra màn hình.

Trả lời:

Nếu dãy chỉ có một số hoặc hai số thì chắc chắn là cấp số cộng.

Nếu dãy có hơn hai số thì tính công sai là a[1]-a[0] sau đó duyệt cả mảng nếu có số nào vi phạm quy luật của cấp số cộng a[i] khác a[i-1]+d thì kết luận luôn không là cấp số cộng.

Nếu đến cuối dãy mà không có số nào vi phạm thì kết luận là cấp số cộng.

program csc; uses crt; var a:array[1..100] of integer; i,n,d:integer; t:boolean; 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; if n<=2 then write('la cap so cong ') else begin d:=a[2]-a[1]; t:=true; for i:=3 to n do if a[i]<>a[i-1]+d then begin t:=false; break; end; if t then write('la cap so cong') else write('khong phai cap so cong '); end; readkey; end.

Kết quả:

Trường hợp là cấp số cộng:

Trường hợp không là cấp số cộng: