Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Ngọc Hảo

cho mảnng số nguyên gồm n phần tử a1,a2...,an và số x

viết chương trình tìm các số có giá trị x và thay chúng băng y

Nguyễn Lê Phước Thịnh
2 tháng 12 2020 lúc 20:51

uses crt;

var a:array[1..100]of integer;

i,n,x,y:integer;

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);

write('Nhap y='); readln(y);

for i:=1 to n do

if a[i]=x then a[i]:=y;

writeln('Day sau khi thay doi la: ');

for i:=1 to n do

write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
Nguyễn Linh
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
No_sun
Xem chi tiết
Joyceeeee
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Yến Phạm
Xem chi tiết
An Trần
Xem chi tiết
Lê Triệu Vy
Xem chi tiết
Hoàng Mai Lan
Xem chi tiết