Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Thị Thanh Nhàn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2021 lúc 13:58

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.

Nguyễn Gia Phong
Xem chi tiết
Nguyễn Lưu Hà Phương
Xem chi tiết
HUỲNH PHÚC
Xem chi tiết
Le Thi Thanh
Xem chi tiết
Nguyễn Văn Khoa
Xem chi tiết
shunnokeshi
Xem chi tiết
Nguyễn Thu Huyền
Xem chi tiết
đặng minh ngọc
Xem chi tiết
Nguễn Hoàng Dương
Xem chi tiết