Bt phần mang 1 chieu

<span class="text_page_counter">Trang 1</span><div class="page_container" data-page="1">

<b>Bài 1: CT nhập và xuất mảng 1 chiều, In mảng theo thứ tự ngược.</b>

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

WRITE(‘IN MANG THEO THU TU NGUOC’);FOR i:=n DOWNTO 1 DO

WRITE(a[i]:4); WRITELN;

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG TRUOC KHI SAP XEP:’);FOR i:=1 TO n DO

WRITE(a[i]:4);

</div><span class="text_page_counter">Trang 2</span><div class="page_container" data-page="2">

Write( ‘CT SAP XEP MANG THEO THU TU TANG DAN’);FOR i:=1 TO n - 1 DO

For j:= i+1 to n doIF a[i]>a[j] thenBegin

Tam:= a[i];a[i]:= a[j];a[j]:= Tam;end;

WRITE(‘MANG SAU KHI SAP XEP TANG DAN:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

Write( ‘CT SAP XEP MANG THEO THU TU GIAM DAN’);FOR i:=1 TO n - 1 DO

For j:= i+1 to n doIF a[i]<a[j] thenBegin

Tam:= a[i];a[i]:= a[j];a[j]:= Tam;end;

WRITE(‘MANG SAU KHI SAP XEP GIAM DAN:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

<b>Bài 3: CT nhập mảng 1 chiều, sau đó tìm phần tử lớn nhất và nhỏ nhất và vị trí của chúng trong mảng.</b>

PROGRAM BAITAP3;

VAR a: Array[1..100] of INTEGER;

I, n, Max, Min, VitriMax, VitriMin : INTEGER;BEGIN

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);READLN(N);

FOR i:=1 TO n DObegin

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

</div><span class="text_page_counter">Trang 3</span><div class="page_container" data-page="3">

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

Max:=a[1]; VitriMax:=1;Min:=a[1]; VitriMin:=1;Writeln;

For i:=1 to n do If Max< a[i] then

Max:= a[i];VitriMax:= i;End;

For i:=1 to n do If Min> a[i] then

Min:= a[i];VitriMin:= i;End;

<b>Bài 4: CT nhập mảng 1 chiều, sau đó đếm số lần xuất hiện các:a. Số 0. </b>

<b>b. Số dương.c. Số âm.d. Số chẵn.e. Số lẻ.</b>

PROGRAM BAITAP4;

VAR a: Array[1..100] of INTEGER;

I, n, dem, demduong, demam, demchan, demle : INTEGER;BEGIN

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);

</div><span class="text_page_counter">Trang 4</span><div class="page_container" data-page="4">

READLN(N);FOR i:=1 TO n DO

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

Dem:=0; Demduong:=0; Demam:=0; Demchan:=0; Demle:=0;Writeln;

For i:=1 to n doIf a[i]=0 thenDem:=Dem +1Else

If a[i]>0 then

Demduong:=Demduong +1Else

Demam:=Demam +1;Writeln;

For i:=1 to n do

If (a[i] mod 2)= 0 then

Demchan:=Demchan +1Else

Demle:=Demle +1;Writeln;

</div><span class="text_page_counter">Trang 5</span><div class="page_container" data-page="5">

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG TRUOC KHI CHEN:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

Write(‘Can chen so x=’);Readln(x);

Write(‘Vao vi tri:’);Reradln(Vitri);Writeln;

For i:= n+1 Downto Vitri+1 doa[i]:=a[i-1];

a[Vitri]:=x;

</div><span class="text_page_counter">Trang 6</span><div class="page_container" data-page="6">

Write(‘MANG SAU KHI CHEN’); For i:=1 to n do

Write(a[i]);Writeln;

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG TRUOC KHI XOA:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

Write(‘Nhap vi tri muon xoa:’);Reradln(Vitri);

For i:=Vitri +1 to n-1 doa[i]:=a[i+1];

Write(‘MANG SAU KHI XOA’);For i:=1 to n do

Write(a[i]);Writeln;

*******************************************************************************

</div><span class="text_page_counter">Trang 7</span><div class="page_container" data-page="7">

<b>Bài 7: CT nhập mảng 1 chiều. sau đó nhập một số x. Kiểm tra số x vừa nhập có nằm trong mảng hay khơng. Nếu có thì in vị trí của phần tử đó trong mảng. Nếu tìmđược ở nhiều vị trí thì In vị trí đầu tiên tìm được.</b>

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO

WRITE(a[i]:4);WRITELN;

Write(‘ Nhap so can tim x=’);Readln(x);

While ((i<=n) and (a[i]<>x)) doi:=i+1;

If i<= n thenbegin

Write(‘ Phan tu x= ’,x,’ vua nhap co trong mang’); Write(‘ No nam o vi tri:’, i);

Write(‘ Phan tu x= ’,x,’ vua nhap khong co trong mang’);Writeln;

<b>Bài 8: CT nhập mảng 1 chiều. Sau đó nhập một số x. Kiểm tra số x vừa nhập có nằm trong mảng hay khơng. Nếu có thì in vị trí của phần tử đó trong mảng. Nếu tìmđược ở nhiều vị trí thì In tất cả các vị trí tìm được.</b>

PROGRAM BAITAP5;

</div><span class="text_page_counter">Trang 8</span><div class="page_container" data-page="8">

VAR a: Array[1..100] of INTEGER; b: Array[1..100] of INTEGER;i, n, x : INTEGER;

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);READLN(N);

FOR i:=1 TO n DObegin

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO WRITE(a[i]:4);

Write(‘ Nhap so can tim x=’);Readln(x);

FOR i:=1 TO n DO If a[i] = x then

Dem:=Dem +1;b[dem]:=i

If dem>0 thenbegin

Write(‘ Phan tu x = ’,x,’ vua nhap co trong mang’);Write(‘ No nam o cac vi tri:’);

FOR i:=1 TO n DO Write(b[i] :4);

Write(‘ Phan tu x= ’,x,’ vua nhap khong co trong mang’);Writeln;

<b>Bài 9: CT nhập mảng 1 chiều. Sau đó a. In các phần tử dương của mảng.b. In các phần tử âm của mảng.</b>

</div><span class="text_page_counter">Trang 9</span><div class="page_container" data-page="9">

<b>c. In các phần tử chẵn của mảng.d. In các phần tử lẻ của mảng.</b>

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO WRITE(a[i]:4);

WRITELN;Demduong:= 0;For i:= 1 to n do If a[i]>0 then

Demduong:= Demduong + 1;b[demduong]:= a[i];

Demam:= 0;For i:= 1 to n do If a[i] < 0 then

Demam:= Demam + 1;b[demam]:= a[i];

If Demam >0 then

Writeln(‘ Cac phan tu am trong mang la:’);FOR i:=1 TO demam DO

</div><span class="text_page_counter">Trang 10</span><div class="page_container" data-page="10">

WRITE(b[i]:4);Writeln;

Demchan:= 0;For i:= 1 to n do

If (a[i] mod 2) = 0 thenbegin

Demchan:= Demchan + 1;b[demchan]:= a[i];

Demle:= 0;For i:= 1 to n do

If (a[i] mod 2) = 1 thenbegin

Demle:= Demle + 1;b[demle]:= a[i];and;

If Demle >0 then

Writeln(‘ Cac phan tu le trong mang la:’);FOR i:=1 TO demle DO

WRITE(b[i]:4);Writeln;

<b>Bài 10: CT nhập mảng 1 chiều. Sau đó tínha. Tổng các phần tử của mảng</b>

<b>b. Tổng các phần tử dương của mảngc. Tổng các phần tử âm của mảngd. Tổng các phần tử chẵn của mảnge. Tổng các phần tử lẻ của mảng</b>

<b>(Tương tự tính tổng bình phương, tổng lập phương)</b>

PROGRAM BAITAP10;

VAR a: Array[1..100] of INTEGER;

i, n, tong, tongduong, tongam, tongchan, tongle : INTEGER;BEGIN

WRITE(‘ NHAP SO PHAN TU CUA MANG n= ’);

</div><span class="text_page_counter">Trang 11</span><div class="page_container" data-page="11">

READLN(N);FOR i:=1 TO n DO

WRITE(‘ NHAP PHAN TU THU a[‘,i,’]= ’);READLN(a[i]);

WRITE(‘MANG VUA NHAP:’);FOR i:=1 TO n DO WRITE(a[i]:4);

WRITELN;Tong:= 0;

For i:=1 to n do

Tong:= Tong + a[i];

Writeln(‘ Tong cac phan tu cua mang la:’, Tong);Writeln;

Tongduong:= 0;For i:=1 to n do

If a[i] >0 then

Tongduong:= Tongduong + a[i];

Writeln(‘ Tong cac phan tu duong cua mang la:’, Tongduong);Writeln;

Tongam:=0;For i:=1 to n do

If a[i] <0 then

Tongam:= Tongam + a[i];

Writeln(‘ Tong cac phan tu am cua mang la:’, Tongam); Writeln;

Tongchan:= 0;For i:=1 to n do

If (a[i] mod 2) = 0 then

Tongchan:= Tongchan + a[i];

Writeln(‘ Tong cac phan tu chan cua mang la:’, Tongchan); Writeln;

Tongle:= 0;For i:=1 to n do

If (a[i] mod 2) = 1 then Tongle:= Tongle + a[i];

Writeln(‘ Tong cac phan tu le cua mang la:’, Tongle); Writeln;

Readln;END.

</div>