Viết chương trình nhập vào một mảng các số nguyên sau đó thực hiện a) Đếm xem có bao nhiêu phần tử có giá trị bằng 100 b) Đếm xem có bao nhiêu phần tử có giá trị lớn hơn -100 và nhỏ hơn 100

phuongmy93

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

832922263741133

Program BTH;
Uses crt;
var n,k,t:longint;
i:byte;
a:array[1..1000000] of longint;
Begin
Clrscr;
Write('Nhap so phan tu co trong day: '); readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' : ');readln(a[i]);
end;
For i:=1 to n do
Begin
If a[i]=100 then k:=k+1;
end;
for i:=1 to n do
Begin
If (-100<a[i]) and (a[i]>100) then t:=t+1;
end;
Writeln('So phan tu co gia tri bang 100 la: ',k);
Writeln('So phan tu co gia tri lon hon -100 va nho hon 100 la: ',t);
readln
end.

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

huyenkobt

Var a:array[1..100] of integer;

i,n,d,k:integer;

Begin

Write('So phan tu:');readln(n);

For i:=1 to n do

Begin

Write('Phan tu thu' ,i,' co gia tri:' ); readln(a[i]);

End;

k:=0;

d:=0;

For i:=1 to n do

Begin

If a[i]=100 then k:=k+1;

If (a[i]<100) or (a[i]>-100) then d:=d+1;

End;

Write('So ptu co gtri =100' ,k);

write('So ptu <100 hoac >-100' ,d);

readln;

end.

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

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

Mọi người làm giúp em câu 4 với... Chỉ rõ những câu đúng cho em luôn ạ Em cảm ơn!!

Cho em hỏi câu f với ạ huhuhu :(((

một hình hộp chữ nhật có chiều dài 1,6m,chiều rộng 1,2m,diện tích xung quanh 8,4m2.Tính chiều cao của hình hộp chữ nhật đó.

Giúp mình với ạ các bài 3 4 5 6 với ạ mik cảm ơn trước ạ 😍🙆

Giúp a mai nộp rùi ..... .........

tặng điểm chuyển acc part 3 Thế nào là hai đơn thức đồng dạng? Cho ví dụ về hai đơn thức đồng dạng. nhanh nhất + hay = 5 sao + tym + ctlhn

viet đoạn văn về" Tinh thần tự học " ( không sao chép mạng)

(-2015)+(-2014)+(-2013)+....+2015+2016 GIÚP EM VỚI Ạ

Cho mình hỏi đây là cây j ạ mình đaq cần gấp lắm

dung dịch muối X không màu , tác dụng voiwsdung dịch AgNo3 tạo ra kết tủa màu vàng nhạt . Dung dịch muối X là

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