Viết chương trình nhập vào một dãy số gồm 30 phần tử. a) In ra màn hình các phần tử chẵn và tổng của chúng a) In ra màn hình các phần tử lẻ và tổng của chúng

Thenhan2000

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

honghanh

program a;

uses crt;

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

i,S:integer;

begin clrscr;

for i:=1 to 30 do

begin

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

end;

S:=0;

for i:=1 to 30 do

begin

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

S:=S+A[i];

end;

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

for i:=1 to 30 do

begin

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

S:=S+A[i];

end;

write('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

Thienan682

b/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

"Japanese creation myth" nghĩa là gì?

Giúp mik với. Mik đang cần gấp!! 1. Nguyên nhân bùng nổ các cuộc khởi nghĩa (nói chung các cuộc khởi nghĩa đã học) Gợi ý: - Đời sống và cách làm việc của vua quan - Thiên tai - Đời sống nhân dân (câu này có thể thêm 1 số chi tiết cũng được) 2. Nêu nguyên nhân, diễn biến, kết quả, ý nghĩa của cuộc khởi nghĩa: - Đàng Ngoài - Đàng Trong - Phong trào Tây Sơn 3. Nguyên nhân thắng lợi, ý nghĩa lịch sử cuộc khởi nghĩa Tây Sơn.

Ways of communition we use now day

Vẽ anime hoặc chibi cute hoặc ngầu nha

khái quát nội dung "Trăng ơi....từ đâu đến"

Mn giúp mik mỗi bài 14 nhé thank 😍

tả 1 cây non mới trồng ngắn. Ko chép trên mạng nha

Tìm các số nguyên khong âm x, y biết x^2=3^y+35

Viết đoạn văn chứng minh: Sách là người bạn lớn của con người. Trong đó có sử dụng dấu chấm lửng và câu đặc biệt. Chỉ rõ

Giải và giải thích dùm mình với ạ

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