viết chương trình nhập từ bàn phím các phần tử nguyên của mảng một chiều thực hiện đưa ra màn hình tổng các phần tử chẵn và phần tử lẻ

114261726499560

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

baolinh5002

uses crt;
var A:array[1..1000] of integer;
i,n,tle,tchan:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2 = 0 then tchan:=tchan+A[i]
else tle:=tle+A[i];
end;
write('Tong cac phan tu chan la: ',tchan);
writeln;
write('Tong cac phan tu le la: ',tle);
readln
end.

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

hienthumai

=))

program Project1;

var a:array [1..100] of integer;
n, i: integer;
le: integer;
begin
write('Nhap so phan tu co trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]);
end;
le:=0;
for i:=1 to n do
begin
if (A[i] mod 2 <> 0) then
le:=le+A[i];
end;
writeln('Tong cac phan tu le la ', le);
readln;
end.

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

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

Một khối khí có V= 7,5 lớt, p= 2.10^5Pa, nhiệt độ 27 độ C .Khí được nén đẳng áp nhận công 50 J .Tính nhiệt độ sau cùng của khí.

Giúp mình nha caccau... hứa vote 5* + ctlhn nếu đúng và nhanh nhất! Mình đang cần gấp lắm

sắp xếp các câu 1.My parents/visit/my uncle/will/not/Australia/in/next month. 2.might/have/The house/to watch programmes/a wireless tv/from/space/. 3.the world/In/the/future,/now./be better/will/than giúp mk vs ạ

Làm tóm tắt cho mik bài này ik ạ

chu vi của một hình chữ nhật bằng 140m, hiệu giữa số đo chiều dài và chiều rộng là 10m . tìm số đo các cạnh của hình chữ nhật (giải toán bằng cách lập pt). Mọi người giúp e lập bảng thui ko cần giải ra đâu ạ. E cảm ơn nhìu .

nêu các phương pháp chế biến thức ăn cho vật nuôi ?ví dụ?

nêu 4 nguyên nhân gây ngộ độc thức ăn. mỗi nguyên nhan cho vd

quãng sông từ bến A đến bến B dài 75km. Một ca nô ngược dòng từ bến B về bến A mất 3 giờ.Tính vận tốc của ca n.Biết dòng nước có vận tốc 2,5km/giờ

cho tam giác ABC vuông tại a có ab bằng 3 cm, AC bằng 4 cm. Vẽ tia phân giác góc A cắt BC tại D. Từ D kẻ DE vuông góc với AC. a) Chứng minh ΔABC đồng dạng với ΔEDC b) Tình tỉ số BD / DC và độ dài của BD c) Tính DE d) Tình tỉ số S ABC/ S ADC

1/5 - (3/5 . x -2/5)² = 4/ 25 Làm giúp mình nha :33

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