Viết chương trình nhập xuất mảng ngược n số nguyên 1 tính tổng mảng vừa nhập 2 tính tổng các số chẵn lẻ trong mảng 3 xuất các số chẵn lẻ trong mảng

thanhtrung180801

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

camchinguyen1262

program a;

uses crt;

var A:array[1..1000] of integer;

i,n,S,S1,S2:integer;

begin clrscr;

writeln('Nhap so phan tu n: '); readln(n);

for i:=1 downto n do

begin

writeln('A[',i,']'); readln (A[i]);

end;

S:=0; S1:=0; S2:=0;

for i:=1 downto n do

S:=S+A[i];

writeln('Tong mang do la: ',S);

for i:=1 downto n do

begin

if A[i] mod 2=0 then writeln('Cac phan tu chan la: ',A[i])

S1:=S1+A[i];

end;

writeln('Tong cac phan tu chan la: ',S);

for i:=1 downto n do

begin

if A[i] mod 2<>0 then writeln('Cac phan tu le la: ',A[i]);

S2:=S2+A[i];

end;

writeln('Tong cac phan tu le la: ',S);

readln;

end.

Học tốt!

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

huonglangoi111

uses crt;

var A: array [1..50] of integer;

i,t,tc,tl,n: integer;

begin

clrscr;

write('Nhap so luong phan tu: ');

readln(n);

for i:=1 to n do

begin

write('Nhap gia tri cho phan tu thu ',i,': ');

readln(A[i]);

end.

{Cau 1: Tinh tong mang vua nhap}

for i:=1 to n do

t:=t+A[i];

{Cau 2: Tinh tong cac so chan le}

for i:=1 to n do

if (A[i] mod 2 = 0) then tc:=tc+A[i]

else tl:=tl+A[i]

{Cau 3: Xuat ket qua ra man hinh}

writeln('Ket qua: ');

writeln('Tong cac phan tu: ',t);

writeln('Tong cac phan tu chan: ',tc);

writeln('Tong cac phan tu le: ',tl);

readln

end.

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

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

Đặt 5 ví dụ cho mỗi công thức "get, have, let, make, động từ tri giác, bị động có 2 tân ngữ" ( bị động dạng đặc biệt)

cho tam giác ABC vuông tại A có đường cao AH a) chứng minh tam giác ABC đồng dạng với tam giác HBA b) Cho AB=8cm, AC=15cm, BC=17cm. Tính AH c) Gọi M,N lần lượt là hình chiếu của H trên AB VÀ AC. Chứng minh AM*AB=AN*AC MK ĐANG CẦN GẤP

cho tam giác ABC vuông tại A, có AC=3, BC=5, a) chứng minh AB bình phương=BC.BH, b) tính BH và AH c) vẽ D đường phân giác góc Â tính DB

Câu 1: có 3 lọ đựng 3 chất khí riêng biệt: không khí, oxi và H2. Bông thí nghiệm nào nhận biết được mỗi chất trong mỗi lọ Câu2: cho 22,4 gam sắt tác dụng vs dung dịch loãng có chứa 24,5 gam axit sunsuric H2SO4? Hãy tóm tắt và tính số mol. a) Sau khi phản ứng kết thúc chất nào có dư? Khối lượng là bao nhiêu gam? b) Tính thể tích H2 thu đc ( đktc)

Cách tính lượng mưa trong tháng ,trong năm .Dụng cụ đo mưa

Giúp em với em đag cần gấp.Giúp em đầy đủ em vote 5 sao với ạ.Cảm ơn anh chj.Bài này dạng câu hỏi đuôi ạ

IN or on 1.in the future most people will travel.........................flying train 2.sorry I am.......................the bus and will arrive in 5minute 3.Minh duc often go to school...........................foot. 4.the actress arrived .....................a helicopter 5.they prefer to go ......................their car than .............................the train

Mọi người vẽ cho em anime nha !!!

Nếu thấy có hiện tượng vi phạm quyền trẻ em,em sẽ làm j

một mảnh đất hình chữ nhật có chiều dài 24m chiều rộng kém chiều dài 7,5 m người ta dành 30 phần trăm diện tích trồng hoa còn lại trồng rau .dien tich dat trong rau

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