Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình tổng các giá trị là số lẻ, các giá trị là số chẵn. Mọi người giúp mình vs ạ

Lolitakaka098

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

ThuyAn

program ct;

uses crt;

var i,n,S:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

S:=0;

for i:=1 to n do

begin

if A[i] mod 2=1 then S:=S+A[i];

if A[i] mod 2=0 then writeln('cac so chan la:',A[i]);

end;

writeln('tong cac so le la:',S);

readln

end.

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

Nhatnguyen8864

Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
n,i,sl: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
sl:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] mod 2 = 1 then sl:=sl+A[i];
End;
Writeln('Tong so le: ',sl);
Write('Cac gia tri so chan: ');
For i:=1 to n do
If A[i] mod 2 = 0 then Write(A[i],' ');
Readln
End.

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

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

Bài 1:tìm X 55,6× x + X × 112 = 200,4 Bài 2: 1 căn phòng dạng hình hộp chữ nhật có chiều dài 6,5 m chiều rộng 4,5 m chiều cao 3,2 m Người ta sớm bốn mặt xung quanh và trần nhà. Biết diện tích các cửa bằng 44,5 m2 . tính diện tích cần sơn

Các bạn học giỏi toán ơi, giúp mình vs, câu 6, phần B nhé, thank you nhìu nhìu nhìu lắm

Trên quãng đường AB , Một xe máy đi từ A đến B cùng lúc đó một ôtô đi từ B đến A , sau 4h hai xe gặp nhau và tiếp tục đi thì ôtô đến A sớm hơn xe máy đến B là 6h . Tính thời gian mỗi xe đi hết quãng đường AB . Chúc mn làm bài vv nha

nêu đặc điểm của cường độ dòng điện và hiệu điện theesntrong đoạn mạch mắc song song trl dùm tớ nhé

Viết chương trình nhập vào một số nguyên dương, xuất ra màn hình đó là số chẵn hay số lẻ Ngôn ngữ nào cũng được tất

1.Fio là dạng bờ biển tiêu biểu của? 2.Nước nào xây dựng đê ngăn biển, đào kênh tưới nước, cải tạo đất để sản xuất nông nghiệp? 3.Nơi có mật độ dân số cao trên 125/km² của Châu Âu tập trung ở vùng đồng bằng thuộc khu vực nào? Giúp em với. Mai em thi huhu!!

Một máy biến áp có cuốn sợ cấp 300vòng, cuốn thứ cấp 1500 vòng nếu đặt vào cuốn dây sợ cấp một hiểu điện thể xoáy chiều là 220v thì hiểu điện thể đâu ra là bao nhiêu

Hấp thụ hoàn toàn 6,72 lít khí CO2(đktc) vào 500ml dd NAOH 0,9M. Khối lượng muối sau khi thu được

Lập dàn ý nghị luận về lòng yêu thương con người và viết đoạn văn 2/3 trang giấy thi Em cảm ơn nhìu nha! < Ko chép mạng, ko spam>

cho tam giác ABC có A=90 độ AB=9cm Bc=15cm A) tính độ dài cạnh AC và so sánh các góc tam giác ABC B) Trên tia đối của tia AB lấy D sao cho A là trung điểm của đoạn thẳng BD . CM tam giác BCD cân C) E là trung điểm CD BE Căt AC tạo I. CM DI đi qua trung điểm cạnh BC

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