Nhập vào một mảng,in ra các số âm có trong mảng,in ra vị trị của từng số âm trong mảng,nếu không có số âm thì ghi ra số 0
Nhập vào một mảng,in ra các số âm có trong mảng,in ra vị trị của từng số âm trong mảng,nếu không có số âm thì ghi ra số 0
uses crt;
var i,n,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘);readln(n);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘);readln(a[i]);
if a[i]<0 then inc(d);
end;
if d=0 then writeln(‘0’) else
begin
write(‘Cac so am co trong mang: ‘);
for i:=1 to n do if a[i]<0 then write(a[i],’ ‘); writeln;
write(‘Vi tri cac so am co trong mang: ‘);
for i:=1 to n do if a[i]<0 then write(i,’ ‘); writeln;
end;
readln
end.
uses crt;
var a:array[1..1000000] of int64;
n,i,d:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
if a[i] < 0 then inc(d);
end;
if d = 0 then writeln(‘0’)
else begin
write(‘Cac so am: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
write(‘Vi tri cac so am: ‘);
for i:=1 to n do write(i,’ ‘);
end;
readln;
end.