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,

bngoc.nm

1 năm trước

Loga Sinh Học lớp 12

0 lượt thích 12 xem

1 trả lời

Thích Trả lời

buitriet3

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.

Vote (0) Phản hồi (0) 1 năm trước

duy133776

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.

Vote (0) Phản hồi (0) 1 năm trước

Các câu hỏi liên quan

Cho góc nhon xOy có Oz là phân giác . Từ một điểm M trên tia Oz, vẽ đường thẳng song song với tia Oy,cắt Ox tại A . Từ M vẽ đường thẳng song song với tia Ox ,cắt Oy tại B a) Cmr : OA=OB b)Vẽ MH ⊥Ox tại H , MK ⊥Oy tại K . Cmr : MH = MK c) Cmr: OM là trung trực của AB

cho đậu thân cao lai với đậu thân thấp f1 thu được toàn đậu thân cao.Cho F1 tự thụ phấn và xác dịnh kiểu gen và kiểu hình ở F1 và F2 .Biết tính trạng thân cao trội hoàn toàn so với tính trạng thân thấp

sưu tầm và mô tả một vài tập tính của sâu bọ(3-5)tập tính GIÚP VS Ạ

Em hãy làm mộ câu thơ lục bát về cô giáo dạy văn KO copy #tựlm Mình xem hết mạng r LM câu thơ >lục bát <cô giáo dạy văn

đối với vùng núi ở nước ta, chúng ta cần phải làm gì để hạn chế những trở ngại đó ?

Tìm x,y,z biết x+xy+y=1 y+yz+z=3 z+zx+x=7

Cho tam giác ABC có AB=AC tia phân giác của góc BAC cắt cạnh BC tại D Trên tia AD lấy E sao cho D là trung điểm của AE A)CMR tam giác ABD = TAM GIÁC ADC B)CMR AD VUÔNG GÓC VỚI BC , AC song song BE C)Cho GÓC ABE = 120 ĐỘ . TÍNH GÓC BAC

tính thể tích(dktc) và khối lượng của: o,5 mol khí SO3; 3.10^23 phân tử c2h4 B) tính Và(dktc) của 16g khí SO2 C) tính m, số phân tử có trong 4,48 lít khí CL2(dktc)

giúp mk phần c bài 4 với các bạn oi

ai giỏi toán giúp mk vs, mk cảm ơn nhiều

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến