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.
doi mai ko dc nek!
Vào thông tin tài khoản chọn đổi ảnh đại diện, hoặc là RESEST máy lại
***Bài một và bài 3 mình biết làm con bài hai mình chịu thua!
Program Abc_2003;
Uses crt;
Var: i,n,S,d,m,n: integer;
A: array[1..1000] of integer;
Begin
Clrscr;
Write('Moi ban nhap so phan tu cua mang: '); Readln(n);
For i:= 1 to n do
Begin
Writeln('Hay nhap so thu ',i,' : '); Readln(a[i]);
end;
s:= 0
For i:= 1 to n do
begin
if a[i] mod 2 = 0 then m:= m+1 else n:= n+1;
S:= S+1;
end;
Writeln('Trong mang co ',S,' phan tu, trong do co ',m,' phan tu chan va ',n,' phan tu le');
Readln;
End.
Trường mình thi rồi nhưng đề dễ lắm, không khó như câu này đâu 
.
program tong;
var s,i : integer;
begin
i:=0; s:=0;
while S < 100 do
begin
S:=s+i;
i:=i+1;
end;
writeln('Tong nho nhat lon hon 100 la: ',s);
writeln('So lan lap la: ',i);
readln
end.
2/ program bt;
var N,i:integer;
begin
write('nhap so N'); readln(N);
writeln;
writeln (' bang nhan ', N);
writeln;
for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end
readln
end.
Mik chỉ bít làm bài 2 thôi!
program loc_so_le;
uses crt;
var N,y: longint;
begin
Writeln('Nhap so N '); Readln(N);
for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');
Readln;
end.
uses crt;
var n,i,max,min:integer;
s:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i]
if a[i]<min then min:=a[i];
end;
s:=(max+min)/2;
wrrite('so lon nhat la:',max);
write('so nho nhat la:',min);
write(' trung binh số lớn nhất và số nhỏ nhất là:',s);
readln;
end.
giúp m đó BFF
Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;
BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .
uses crt;
var n,i,d,j:integer;
a:array[1..20] of integer;
begin
clrscr;
write('Nhap so phan tu cua day:');
readln(n);
while (n>20) do
begin
write('nhap lai so phan tu cua day thoa man toi da la 20 phan tu:');readln(n);
end;
for i:=1 to n do
begin
write('a[',i,'] =');readln(a[i]);
end;
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d=2 then writeln(a[i],' la so nguyen to');
end;
readln;
end.
Type mang=array [1..20] of integer;
var a:mang; i,n,k:integer;
begin
Writeln('nhap n');
readln(n);
for i:=1 to n do
begin
writeln(' nhap pt thu', i);
readln(a[i]);
end;
for i:=1 to n do
begin
k:=2;
while (k<= a[i]) and ( a[i] mod k <>) do
k:=k+1;
if k:= a[i] then writeln(a[i]);
end;
readln;
end,
program DemSoLanXuatHien;
var
a: array[1..100] of Integer; // khai báo mảng a với 100 ptu
n, x, i, count: Integer;
begin
readln(n);
for i := 1 to n do
readln(a[i]);
readln(x);
count := 0;
for i := 1 to n do
if a[i] = x then
count := count + 1;
writeln(count);
end.
cảm ơn bạn nhiều nha nha