1. BÀI 1: Viết chương trình nhập vào mảng gồm 10 số nguyên. Hãy tính tổng của các số dương có trong mảng đó rồi đưa kết quả ra màn hình. 2. BÀI 2: Viết chương trình nhập vào mảng gồm 20 số nguyên. Hãy tính tổng của các số chẵn có trong mảng đó rồi đưa kết quả ra màn hình. 3. BÀI

catlt01012004

2 năm trước

1. BÀI 1: Viết chương trình nhập vào mảng gồm 10 số nguyên. Hãy tính tổng của các số dương có trong mảng đó rồi đưa kết quả ra màn hình. 2. BÀI 2: Viết chương trình nhập vào mảng gồm 20 số nguyên. Hãy tính tổng của các số chẵn có trong mảng đó rồi đưa kết quả ra màn hình. 3. BÀI 3: Viết chương trình nhập vào mảng gồm 30 số nguyên. Hãy tính tổng của các số lẽ có trong mảng đó rồi đưa kết quả ra màn hình.

Loga Sinh Học lớp 12

0 lượt thích 53 xem

1 trả lời

Thích Trả lời

anvytiuhi

Bài 1:

program Tin_hoc;

uses crt;

var i,k:integer;

a: array [1..10] of integer;

begin

clrscr;

k:=0;

writeln('Nhap 10 phan tu cua mang:');

for i:= 1 to n do

Begin

readln(a[i]);

If a[i] > 0 then k:=k+a[i]

end;

writeln('Tong cua cac so duong co trong mang la: ',k);

readln;

end.

Bài 2:

program Tin_hoc;

uses crt;

var i,k:integer;

a: array [1..20] of integer;

begin

clrscr;

k:=0;

writeln('Nhap 20 phan tu cua mang:');

for i:= 1 to 20 do

begin

readln(a[i]);

If a[i] mod 2 = 0 then k:=k+a[i]

end;

writeln('Tong cua cac so chan co trong mang la: ',k);

readln;

end.

Bài 3:

program Tin_hoc;

uses crt;

var i,k:integer;

a: array [1..30] of integer;

begin

clrscr;

k:=0;

writeln('Nhap 30 phan tu cua mang:');

for i:= 1 to 30 do

begin

readln(a[i]);

If a[i] mod 2 = 1 then k:=k+a[i]

end;

writeln('Tong cua cac so le co trong mang la: ',k);

readln;

end.

Nhớ cho mik là câu trả lời hay nhất nha

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

nguyentancauph3

Câu 1:

uses crt;
var a:array[1..10] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i]>0 then inc(s,a[i]);
end;
write('Tong cac so duong: ',s);
readln;
end.

Câu 2:

uses crt;
var a:array[1..20] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 20 do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i] mod 2=0 then inc(s,a[i]);
end;
write('Tong cac so chan: ',s);
readln;
end.

Câu 3:

uses crt;
var a:array[1..30] of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 30 do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
end;
write('Tong cac so le: ',s);
readln;
end.

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

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

Làm giùm mink bài hình nha mọi người

Giúp mk vs Lm đầy đủ=Vote 5*+Cảm ơn +Trl hay nhất

Viết đoạn văn ngắn nêu cảm nhận về nhân vật Kiều Phương trong văn bản Bức tranh của em gái tôi của nhà văn Tạ Duy Anh.Đoạn văn có độ dài khoảng mười dòng. Đoạn văn có sử dụng một trong các phép tu từ: so sánh, nhân hóa, ẩn dụ, hoán dụ.Giúp mik với mik đang cần gấp

Cho ABC vuông tại A. Gọi N là trung điểm của BC và E đối xứng với A qua N. a) Chứng minh ABEC là hình chữ nhật. b) Gọi I là trung điểm AC và D là điểm đối xứng với N qua I. Chứng minh ANCD hình thoi. c) Vẽ cắt tại Chứng minh

cho AB = AC va H la trung diem cua canh BC .chung minh rang AH vuong goc BC

Một viên bi có khối lượng 500g đang chuyển động với vận tốc 12 m/s đến va chạm với viên bi có khối lượng 3,5 kg đang đứng yên . Sau vs chạm 2 viện bi dính vào nhau và cùng chuyển động với vận tốc là bao nhiêu ? Giúp mình với!!!

Anh chị giải hộ em bài này nha ai nhanh em menu hết cho.

Một cửa hàng đã bán 10 chiếc quạt điện và được lãi 1200000 biết về lãi bằng 10% tiền vốn A tiền vốn 10 cái quạt điện là bao nhiêu đồng B cửa hàng bán một cái quạt điện giá bao nhiêu

Giải giúp ạ.... Giải xog e vote 5 sao Giúp e với ạ

Ảnh kia mờ quá nên em chụp lại mong mọi người giúp em môn địa!!!

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