Mình mai thi học kì, mấy bạn làm chi tiết giúp mình với 😣😣 Viết chương trình nhập từ bàn phím số nguyên dương N(N<=100) và dãy số AN có trị tuyệt đối nhỏ hơn 1000.Đưa ra mà hình các thông tin sau: a) Đếm số phần tử lẻ b) Tổng giá trị các phần tử lẻ. Giúp mình với mọi người 🙏

queanh2000

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

giaitritv567

Program BTT;
Uses crt;
Var A: array[1..100] of integer;
n,i,d: byte;
s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; d:=0;
For i:=1 to n do
Begin
Write('Nhap A[',i,'] = '); Readln(A[i]);
If abs(A[i])>=1000 then
Repeat
Write('Nhap sai! Yeu cau nhap lai A[',i,'] = ');
Readln(A[i]);
Until abs(A[i])<1000;
If A[i] mod 2 = 1 then
Begin
inc(d);
s:=s+A[i];
End;
End;

Writeln('Co ',d,' phan tu le');
Write('Tong cac phan tu le: ',s);
Readln
End.

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

Philongqh

program hotboy;

uses crt;

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

le,s,i,n : Integer;

begin

Clrscr;

s:=0; le:=0;

write('nhap so nguyen duong n:');

Readln(n);

for i:= 1 to n do

begin

Write('A[',i,']');

readln(a[i]);

end;

for i:=1 to n do

begin

If a[i] mod 2 = 1 then

begin

le:=le+1 ;

S:= S+a[i] ;

end;

Writeln('co so phan tu le la= ',le);

Writeln('Tong so cacphan tu le la= ',s );

Readln

End.

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

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

c1 em hãy giải thích tại sao chúng ta phải tự lập trong cuộc sống c2 ngay khi nhận được thời khóa biểu học tập ,Hoa đã xây dựng kế hoạch học tập hàng tuần cho bản thân. a)theo em bạn Hoa là người như thế nào? b)Sống và làm việc có kế hoạch đem lại lợi ích j cho bản thân giúp mk vs

Mn cho mk xin bài phân tích đọc Tiểu Thanh kí

Câu 1: Ở người , 2n=46 A.xét 2 tế bào sinh tinh giảm phân tạo giao tử , tính số nst có trong tất cả các tinh trùng được tạo thành B.xét 3 tế bào sinh trứng giảm phân tạo giao tử , tính số nst có trong tất cả các trứng được tạo thành Câu 2: Ở ngô , 2n= 20 . Một tế bào rễ ngô đang ở kì sau của nguyên phân . Số lượng nst trong tế bào đó bằng bao nhiêu?

Cho 10,4 g oxit của một nguyên tố kim loại hoá trị II tác dụng với dung dịch HCl dư, sau phản ứng tạo thành 15,9 g muối. Xác định nguyên tố kim loại.

cho hàm số f(x)=(sin9x- six2 x)/sin4x x khác 0 và m^3+3/4 x=0 Tìm m để hàm số f(X) liên tục tại x = 0 Tìm ẩn m để hàm số liên tục

Thuyết minh về chiếc cặp đi học của học sinh

Hoán vị gen xảy ra trong trường hợp nào

So sánh sự giống và khác nhau của tổ chức bộ máy nhà nước Văn Lang và Âu Lạc ? Giúp mình nhé!

Cho tam giác ABC có AB=AC, gọi D là trung điểm của BC a, Chứng minh tam giác ADB= tam giác ADC,từ đó suy ra AD là tia phân giác của góc BAC b, chứng minh AD vuông góc với BC c, trên cạnh AC và cạnh AC lấy 2 điểm M và N sao cho AM=AN. Gọi K là giao điểm của AD và MN. Chứng minh AD vuông góc MN Giải hộ mk vs . Mk cảm ơn ạ♡

Tìm tất cả các cấp số tự nhiên( x, y) Sao cho 6x+99=20.y

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