giúp em với 1.viết chương trình sử dụng biến mảng số nguyên nhập n phần tử và in ra các giá trị phần tử là số chẵn. 2.viết CT sử dụng mảng số nguyên nhập n phần tử và in tổng các phần tử là số dương.
1 câu trả lời
1.
program ct;
uses crt;
var i,n: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;
for i:=1 to n do
if A[i] mod 2=0 then writeln('cac so chan la',A[i]);
readln
end.
2
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
if A[i]>0 then s:=s+A[i];
writeln('tong cac phan tu duong la:',s);
readln
end.
Câu hỏi trong lớp
Xem thêm