a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số nguyên,dương b) viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị là số chẵn

thongvotv97

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

petngo192

program Y_a;

uses crt;

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

n,i,T: integer;

Begin

clrscr;

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

for i:=1 to n do

begin

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

if A[i]>0 then T:=T+A[i];

end;

write('T = ',T);

readln

End.

program Y_b;

uses crt;

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

i: integer;

Begin

clrscr;

for i:=1 to 5 do

begin

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

end;

write('Cac phan tu co gia tri chan: ');

for i:=1 to 5 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

meongockutett

ý a:

uses crt;
var s,n,i: longint;
a: array[1..100] of integer;
begin
clrscr;
s:=0;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
writeln('Tong cac so nguyen duong trong mang la: ',s);
readln;
end.

ý b:

uses crt;
var s,i: longint;
a: array[1..100] of integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do begin { vì mảng chỉ có 5 phần tử nên chỉ cần 'to 5' }
write('a[',i,']='); readln(a[i]); end;
write('Cac phan tu chan la: ');
for i:=1 to 5 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

em hãy tả 1 con vật mà em yêu thích ngắn ngắn thôi nha cố tả màu vàng

mn giúp mình với mình đang cần gấp

Vẽ anime nữ full màu Vẽ có tâm, no spam Xincamon

Năm nay tổng số tuổi của mự và con bằng 32 tuổi. Tính tuổi hiện nay của mỗi người biết rằng tuổi mẹ gồn bao nhiêu tuần lễ thì tuổi con giòn bấy nhiêu ngày

1)|x+6|=2x+9 2)|2x-3|=2x-3 3)|4+2x|=-4x 4)|3-x|+x^2-x(x+4)=0 5)(x-1)^2+|x+21|-x^2-13=0

Cho tam giác $ABC$ có chu vi bằng $30cm$ và diện tích bằng $45cm^2$. Đường tròn $(O)$ nội tiếp tam giác $ABC$ có bán kính bằng

Cho tam giác ABC vuông tại A có AB=3 cm và B= 60⁰.Độ dài cạnh AC bằng: A. căn 3 cm B.6 căn 3 cm C.3 căn 3 cm D. 2 căn 3 cm.(giải thích ra nữa nha) Giúp mình vs ạ. Mình gấp lắm. Mình vote 5*

Viết bài văn chứng minh câu tục ngữ : "Một cây làm chẳng nên non Ba cây chụm lại nên hòn núi cao"

Giúp mình bài 7 câu c với Mình đang cần gấp

Viết một bài cảm nhận về một quyển truyện ( sách) mà em thích.

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