Question

nhập vào mảng a gồm n số nguyên(n

Answer 1

Program bai1;

uses crt;

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

i,n,dem: integer;

begin clrscr;

write('nhap n = ');

readln(n);

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

readln(a[i]);

end;

dem:= 0;

for i:= 1 to n do if a[i] < 0 then dem:= dem+1; write('so luong cac so am la : ',dem);

readln;

end.