Question

[Huỳnh Ngọc Nguyên]

viết chương trình nhập vào dãy gồm n số nguyên từ bàn phím. in ra giá trị của những phân tử âm

Answer 1

[Phía sau một cô gái]

program Soam;

var

     n, i: integer;

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

begin

     write('Nhap so phan tu cua day: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(a[i]);

     end;

     writeln('Cac phan tu am trong day la: ');

     for i := 1 to n do

     begin

          if a[i] < 0 then

               writeln(a[i]);

     end;

end.