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.
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 .
***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.
mình thấy ở trang 71 SGK có bài tương tự
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.
uses crt;
var a, b, c, d, P, S, h:real;
BEGIN
write ( 'nhap do dai day be a, day lon b, 2 canh ben c, d va chieu cao h: ');
readln(a, b, c, d, h);
P:=a+b+c+d;
S:=((a+b)*h)/2;
writeln ( ' chu vi = ',P:8:3, 'dien tich = ',S:8:3);
readln
END.
program Tong_cac_so_le;
program tong cac so le; uses crt; var i, n, tong: integer; A : array[1..10]of integer; begin write('nha so phan tu cua day:'); readln(n); for i:=1 to n do begin (' nhap so thu ',i') ; readln (A[i]); end; tong:=0; for i:= 1 to n do if A[i] mod 2=1 then tong:= tong+A[i]; write('tong cac so le trong day la: ', tong); readln end.
Var i,n,s:integer;
begin
readln(n); s:=0;
for i:=1 to n do
if i mod 2 <> 0 then s:=s+i;
writeln(s);
readln;
end.
program tongcacsole;
uses crt;
var i, n:integer;
s: longint;
a: array[1..100] of integer;
begin
clrscr;
write ( ' hay nhap so phan tu cua day so, n= '); readln(n);
writeln( ' nhap cac phan tu cua day so: ');
for i := 1 to n do
begin
write ( ' a[ ' , i , ' ] = ' ); readln(a[ i] );
end;
for i := 1 to n do
if a[ i] mod 2 < > 0 then s := s + i;
writeln ( ' tong cac so le: ' , s);
readln
end.
*bạn có thể thay dòng :
if a[ i] mod 2 < > 0 then s:= s + i;
bằng dòng:
if a[ i] mod 2 = 1 then s:= s + i;
=>đều cho cùng 1 kết quả nhé
program tong_cac_so_le;
uses crt;
var i, n, s:integer;
a: array [1..100] of integer;
begin
clrscr;
write ('hay nhap so phan tu cua day so, n='); readln(n);
writeln ('nhap cac phan tu cua day so:');
for i:= 1 to n do
begin
write ('a[', i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do
if a[i] mod 2 = 1 then s:=s+ a[i];
writeln('tong cac so le trong day la:',s);
readln
end.
*bạn có thể thay dòng :
if a[i] mod 2=1 then s:=s+ a[i];
thành dòng:
if a[i] mod 2<>0 then s:=s+ a[i];
ghi lộn có chút xíu à.bất quá sai nguyên bài thôi làm gì dữ vậy
bn ơi sao ngắn vậy đủ chưa bn
bn ơi theo mk nghĩ là thiếu đó
thanjk bn nha
thank bn nha
CẢM ƠN BN NHA
program tongle;
uses crt;
var n,i,tongle:integer;
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;
tongle:=0;
for i:=1 to n do
if a[i] mod 2 <>0 then tongle:=tongle+a[i];
write('tong cac so le trong day la:',tongle);
readln;
end.
ngân làm sai rồi
program tong_cac_so_le;
uses crt;
var i, n, s:integer;
a: array [1..100];
begin
clrscr;
write ('hay nhap so phan tu cua day so, n='); readln(n);
writeln ('nhap cac phan tu cua day so:');
for i:= 1 to n do
begin
write ('a[', i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do
if a[i] mod 2 = 1 then s:=s+ a[i];
writeln('tong cac so le trong day la:',s);
readln
end.
*bạn có thể thay dòng :
if a[i] mod 2=1 then s:=s+ a[i];
thành dòng:
if a[i] mod 2<>0 then s:=s+ a[i];
cảm ơn bn nhìu nha
k sao đâu
ngân nói chx mắt cười thiệt