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
ZD
1
LC
Bạn nào biết làm bài này ko làm giúp mình với mình đang cần bài này ạ! Xin cảm ơn
0
NT
0
ML
18 tháng 4 2020
Bạn phải viết thêm readln trước end. nó mới in ra kết quả ở màn hình được
14 tháng 6 2020
Bài 1:
uses crt;
var a:array[1..100]of integer;
n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n do
if a[i] mod 2<>0 then kt:=1;
if kt=0 then writeln('Thoa man')
else writeln('Khong thoa man');
readln;
end.
KV
24 tháng 2 2022
Var a:array[1..100] of integer;
i,d1,d2:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i);readln(a[i]);
End;
For i:=1 to 100 do
If a[i] mod 2 = 0 then d1:=d1+1
Else d2:=d2+1;
Writeln('So phan tu chan la ',d1);
Write('So phan tu le la ',d2);
Readln;
End.
24 tháng 2 2022
uses crt;
var n,i,a[100],dem1,dem2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln(dem1,' ',dem2);
readln;
end.
17 tháng 6 2020
uses crt;
type mang=array[1..100]of integer;
var a:mang;
n,i,t,k,kt:integer;
{------------------ham-kiem-tra------------------------}
function ktra(x:integer):boolean;
begin
ktra:=false;
for i:=1 to n do
if a[i]=x then ktra:=true;
end;
{-------------------chuong-trinh-chinh----------------}
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('Tong cac so chan la: ',t);
write('Nhap k='); readln(k);
if ktra(k)=true then writeln('YES')
else writeln('NO');
readln;
end.
Gì thế ?