Bài 11: Kiểu mảng

Hoài thịnh

viết chương trình pascal nhập mảng và thay thế các phần tử âm bằng số 0

Minh Lệ
19 tháng 3 2023 lúc 22:27

Program HOC24;

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

i,n: integer;

begin

write('Nhap so phan tu trong mang: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

for i:=1 to n do if a[i]<0 then a[i]:=0;

write('Mang sau khi thay the la: ');

for i:=1 to n do write(a[i],' ');

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Hoài thịnh
Xem chi tiết
an1114
Xem chi tiết
Khang Hoàng
Xem chi tiết
Benny
Xem chi tiết
Ngọc Huỳnh
Xem chi tiết
Yeo Bang Yeong
Xem chi tiết
LUÂN THÀNH THƯỞNG
Xem chi tiết
Bé Thúy
Xem chi tiết
Sulann
Xem chi tiết