Tin học chương trình pascal

[Pointsetti Phạm]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

giúp mình với, mình cần gấp lắm!! chương trình kiểu mảng
Câu 1: Viết chương trình nhập vào một dãy số nguyên có N phần tử và một số nguyên K. Đếm xem trong dãy vừa nhập có bao nhiêu số bằng K, in kết quả ra màn hình.
Câu 2: Viết chương trình nhập vào một dãy số nguyên gồm N phần tử. Kiểm tra xem mảng vừa nhập có đối xứng không.

 

[Nhật Hạ !]

Câu 1:

Var a:array[1..1000] of longint;
n,i,k,dem:integer;

Begin
Write('Nhap so phan tu cua mang'); Readln(N);
For i:=1 to n do
        Begin
        Write('a[',i,']= ');
        Readln(a[i]);
        End;
write('Nhap k '); readln(k);

For i:=1 to n do
       If a[i]=k then inc(dem);
Write('Co ',dem,' so bang k ');

Readln;
End.

Câu 2:

Var a:array[1..1000] of longint;
n,i:integer;
doixung:boolean;

Begin
Write('Nhap so phan tu cua mang'); Readln(N);
For i:=1 to n do
        Begin
        Write('a[',i,']= ');
        Readln(a[i]);
        End;

doixung:=true;
For i:=1 to n div 2 do
        If a[i]<>a[n-i+1] then doixung:=false;
If doixung=true then write('Doi xung ') else write('Khong doi xung');

Readln;
End.