Bài 1: Nhập vào 1 dãy số nguyên với n<100, các phần tử <250. Tính tổng các số dương và đếm số âm. Bài 2: Tạo mảng gồm n (n <= 100) số nguyên, mỗi số đều có giá trị tuyệt đối không quá 300. Tỉnh tổng và trung bình giá trị của các phần tử trong mảng.

hao201087

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

lehaianh

Bài 1:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,d,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
d:=0; s:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i]>0 then s:=s+A[i];
If A[i]<0 then inc(d);
End;
Write(d,' ',s);
Readln
End.

Bài 2:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
Begin
Read(A[i]);
s:=s+A[i];
End;
Write(s/n:0:2);
Readln
End.

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

phuongvanhothanh

Câu 1:

uses crt;
var a:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
repeat
write('Nhap so luong phan tu (n<100): '); readln(n);
if n>=100 then writeln('NHAP LAI!');
until n<100;
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
if a[i]>0 then inc(s,a[i]);
if a[i]<0 then inc(d);
end;
writeln('Tong so duong: ',s);
writeln('Co ',d,' so am');
readln;
end.

Câu 2:

uses crt;
var a:array[1..100] of longint;
n,i,s:longint;
begin
clrscr;
repeat
write('Nhap so luong phan tu (n<=100): '); readln(n);
if n>100 then writeln('NHAP LAI!');
until n<=100;
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
inc(s,a[i]);
end;
writeln('Tong: ',s);
writeln('Trung binh: ',s/n:0:2);
readln;
end.

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

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

Kiểm tra hạt giống trước khi đem gieo tiêu chí nào sau đây không cần thiết A.Sức nảy mầm mạnh B.Kích thước hạt to C.Ko có sâu bệnh D.Tỉ lệ nảy mầm cao

Giúp mình với nhé mình đang cần

1.So sánh danh từ và động từ về khái niệm và đặc điểm. 2. Nêu khái niệm khả năng kết hợp và khả năng đảm nhiệm chức vụ ngữ pháp trong câu. giúp em vs ạ , em đg cần gấp

Giúp mk vs ạ ( đề cương ktra ) cần câu TL chính xác và đầy đủ . - Đừng kiểu TL chọn a,b,c,d linh tinh ạ . Nếu TL kiểu vậy mk tặng free vé report nhé ! C1 : phần lớn nước trên lục địa tập trung ở : A. Dưới lòng đất B. Trên đỉnh núi C. Ao , hồ , đầm D. Các dòng sông C2 : vòng tuần hoàn lớn của nước diễn ra trên quy mô : A. Khu vực B. Quốc gia C. Châu lục D. Toàn cầu C3 : sự tuần hoàn của nước trên trái đất thực chất là quá trình nào sau đây : A. Trao đổi nhiệt - ẩm giữa đại dương và lục địa B. Hình thành các dạng địa hình dòng chảy C. Biến đổi khí hậu toàn cầu D. Thay đổi trạng thái của nước Câu 4 : trong các nhân tố sau đây , Nhân tố nào ảnh hưởng lớn nhất đến chế độ nước sông A. Địa thể và thực vật B. Chế độ mưa và nhiệt độ C. Thực vật và hồ đầm D. Nước ngầm và hồ đầm

Các bạn làm giúp mk nhé. Bài nó hơi khó hiểu.

Có bao nhiêu số có 7 chữ số chia hết cho 3 mà 7 chữ số đôi một khác nhau? Giúp em cách làm với ạ

Tìm bộ 3 số nguyên dương a,b,c thỏa mãn phương trình 6^a=1+2^b+3^c

giúp mik câu này nha (vẽ biểu đồ cột và nhận xét)

Rất rất rất cảm ơn bạn fifihh, mik iu bn vê lù ❤ Vẽ chibi bắn tim~

Mng ơi giúp em với ạ !!!!!!!!! Tóm tắt đặc điểm kinh tế của mĩ, nhật và các nước tây âu từ sau chiến tranh thế giới thứ 2 đến những năm 70 của TK XX. nguyên nhân vì sao có sự phát triển thăng trầm đó

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