giúp vs nhé 
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TT
1
17 tháng 11 2017
Program bai1;
uses crt;
var a: array[1..100] of integer;
n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
writeln('cac so chan la :');
for i:= 1 to n do
if a[i] mod 2 = 0 then write(a[i] :4);
writeln;
writeln('cac so le la :');
for i:= 1 to n do
if a[i] mod 2 <> 0 then write(a[i] :4);
writeln;
writeln('cac so chia het cho 3 la :');
for i:= 1 to n do
if a[i] mod 3 = 0 then write(a[i] :4 );
readln;
end.
GIÚPGIÚP MIK NA
DV
3
HN
8 tháng 4 2017
Cài được bạn, nhưng theo mình thì xài XP thôi. Win 7 chạy mượt mà hơn với cấu hình RAM từ 2G trở lên (với RAM nhỏ hơn 2G máy sẽ bị giật lag và hay bị treo).
Chúc bạn học tốt!
LN
2
SX
11 tháng 8 2017
Đó là phần mềm kiểm tra dữ liệu của trang web đó
Muốn tắt thì có dấu X nhỏ ở phía phải của màn hình là xong .
5 tháng 1 2019
Bạn cần nâng cấp chứng chỉ SHA-1 lên SHA-2 nhé
hoặc là đổi DNS google
18 tháng 3 2023
a: uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 70 do s:=s+i;
write(s);
readln;
end.
b:
uses crt;
var s,i:integer;
begin
clrscr;
s:=1;
for i:=1 to 80 do
if i mod 2=0 then s:=s+i;
write(s);
readln;
end.
Áo team .
Áo team 
1:
Program baitap1;
Uses crt;
Var A:array[1..200] of integer;
S,i:integer;
Begin
Clrscr;
S:=0;
For i:=1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
If (A[i] mod 2=1) then S:=S+A[i];
End;
Writeln('Tong cac phan tu co gia tri le:',S);
Readln
2:
Program baitap2;
Uses crt;
Var A:array[1..200] of integer;
S,i:integer;
Begin
Clrscr;
S:=0;
For i:=1 to 15 do
Begin
Write('A[',i,']=');
Readln(A[i]);
If (A[i] mod 2=0) then S:=S+A[i];
End;
Writeln('Tong cac phan tu co gia tri chan:',S);
Readln
End.
End.