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.
Program Nguyen_tu;
Uses crt;
Var a: integer;
Begin
Clrscr;
Write('nhap cac so nguyen:');
Readln(a);
if a mod 2 = 0 then write('cac so chan la:',a);
else write ('cac so le la:',a);
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.
Bạn thử xem cách mình làm đc ko?
___________
uses crt;
var A:array[1..1000] of integer;
n,i,tc,tl,z,j,e,tic,til,dem,d,dc,dl:integer;
begin
clrscr;
Write('Nhap n: '); readln(n);
for i:=1 to n do
begin
Write('Nhap phan tu thu ',i,' :'); readln(A[i]);
end;
i:=1;
tc:=0;
tl:=0;
for d:=1 to n do if (A[d] mod 2=0) then dc:=dc+1 else dl:=dl+1;
if (dc<>0) then tic:=1 else tic:=0;
if (dl<>0) then til:=1 else til:=0;
for i:=1 to n do if (A[i] mod 2=0) then
begin
tc:=tc+A[i];
tic:=tic*A[i];
end
else
begin
tl:=tl+A[i];
til:=til*A[i];
end;
Writeln('Tong cac phan tu chan la: ' ,tc);
Writeln('Tich cac phan tu chan la: ' ,tic);
Writeln('Tong cac phan tu le la: ' ,tl);
Writeln('Tich cac phan tu le la: ' ,til);
for e:=1 to (n-1) do
for j:=e+1 to n do
if A[e]>A[j] Then
begin
z:=A[e]; A[e]:=A[j]; A[j]:=z;
end;
Writeln('Day sau khi duoc sap xep tang dan la: ');
for dem:=1 to n do Write(A[dem],' '); writeln;
writeln('Day sau khi duoc sap xep giam dan la: ');
for dem:=n downto 1 do write(A[dem],' ');
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
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=n; i>=1; i--)
if (a[i]>0)
{
cout<<i<<" ";
return 0;
}
cout<<"Khong co so am trong day";
return 0;
}
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.
Program In;
uses crt;
Var a:real;
Begin
clrscr;
Write ('nhap 30 so nguyen:');
Readln(a);
If a>0 then write('So nguyen duong co trong man la:',a);
If a<0 then write('so nguyen am co trong man la:',a);
If a=0 then write ('0');
Readln;
End.
C. mơn bạn nke