80050

Tham Khaor

 

Tham Khảo

Câu nói trên của Lênin đã khuyên chúng ta phải học tập thật nhiều học không mệt mỏi để tạo thành nguồn kiến thức vô tận trong mỗi người để sau này trưởng thành có thể làm chủ mọi công việc, góp phần xây đựng đất nước, xã hội ngày một giàu đẹp văn minh. Đó là một lời khuyên mà mỗi học sinh chúng ta cần nhớ và làm theo.

xong r day

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:
 for i:=1 to n do
if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]);
s:=0;
for i:=1 to n do if A[i] mod 2=1 then s:=s+A[i];
writeln(‘tong cac so le la:’,s);
readln
end.

hsg gioi nhe

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; for i:=1 to n do if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]); s:=0; for i:=1 to n do if A[i] mod 2=1 then s:=s+A[i]; writeln(‘tong cac so le la:’,s); readln end.