Question

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

Answer 1

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.