viết chương trình nhập vào 1 mảng số nguyên có tối đa 200 phần tử đêm (dem) xem mảng có bao nhiều số âm in ra hình những phần tử âm trong mảng và in dem,
viết chương trình nhập vào 1 mảng số nguyên có tối đa 200 phần tử đêm (dem) xem mảng có bao nhiều số âm in ra hình những phần tử âm trong mảng và in d
By Liliana
uses crt;
var d,i,n:longint; a:array[1..100000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’,]=’);readln(A[i]);
end;
WRITELN(‘Cac phan tu am: ‘);
for i:=1 to n do if a[i]<0 then begin write(a[i],’ ‘); inc(d); end;
writeln;
writeln(‘Dem= ‘,d);
readln
end.
var a:array[1..200] of integer;n,i:integer;
procedure xl;
begin
d:=0;
for i:=1 to n do
if a[i]<0 then begin
inc(d);
write(a[i],’ ‘);
end;
if d >0 then
write(‘co ‘d,’ so am’);
end;
begin
assign(input,’bt.inp’);reset(input);
assign(output,’bt.out’);rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
xl;
close(input);
close(output);
end.