Bài 1. Cho dãy số nguyên N và dãy a1, a2, a3, .., an (0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa phần tử x và xuất mảng sau khi xóa.
Bài 2. Cho dãy số nguyên N và dãy a1, a2, a3, …, an(0<=N<=10^6; i=0,1,2,…,N – 1; |a(i)|<=10^6.Yêu cầu: Cho N và dãy a1, a2, a3, …, an; xóa các phần tử trùng nhau chỉ giữ lại một phần tử và xuất mảng sau khi xóa.
Ai đó giúp mình 2 bài này theo pascal với được ko? Mình thật sự không biết làm :(( Ai đó giúp mình 2 bài này theo pascal với được ko? Mình xin cảm ơn nhiều!!
Bài 1:
uses crt;
var a:array[1..1000000]of longint;
i,n,x:longint;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
for i:=1 to n do
if a[i]<>x then write(a[i]:4);
readln;
end.