Bài tập Mảng 3

Tue Jun 25, 2024 10:40 am

Bài 1:Sinh ngẫu nhiên n số nguyên dương (n<200).
a) Xóa các số trong dãy nhỏ hơn 10.
b) Xóa các số trong dãy thuộc đoạn [50,99].
Bài 2 :Sinh ngẫu nhiên dãy n số nguyên. Không dùng mảng phụ, hãy chuyển các số âm về đầu dãy, các số dương về cuối dãy sao cho không làm thay đổi trật tự trước sau của các số cùng dấu.
GIẢI
Bài 1

Code:: uses crt; var a:array[1..100] of integer; n,i,j:integer; begin clrscr; write('Ban muon sinh ngau nhien bao nhiu so:');readln(n); writeln('Day so ban dau:'); randomize; for i:=1 to n do a[i]:=random(100); for i:=1 to n do write(a[i]:3); writeln; writeln('Sau khi xoa cac so nho hon 10:'); for i:=1 to n do if a[i]>10 then write(a[i]:3); writeln; writeln('Sau khi xoa cac so tu 50..99 la:'); for i:=1 to n do if (a[i]<50) or (a[i]>99) then write(a[i]:3); readln; en

Bài 2

Code:: uses crt; Var a:array[1..10] of integer; n,i:integer; procedure sx(var a,b:integer); var tam:integer; begin tam:=a; a:=b; b:=tam; end; begin clrscr; write('Ban muon nhap bao nhieu so '); readln(n); for i:=1 to n do begin write('a[',i,']= '); readln(a[i]); end; writeln; write('Day so ban dau la '); writeln; for i:=1 to n do write(a[i]:3); writeln; write('Day so sau khi bien doi la '); writeln; for i:=1 to n do if a[i]<0 then write(a[i]:3); for i:=1 to n do if a[i]=0 then write(a[i]:3); for i:=1 to n do if a[i]>0 then write(a[i]:3); readln; end.

Nguồn bài :https://forumpascalvanlang.forumvi.com