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.
var a:array[1..1000] of integer;
i,n,d,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then d:=d+1;
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
writeln('Co ',d,' so le');
write('So lon nhat la ',max);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long a[100],n,i,ln,nn,vt1,vt2;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
ln=a[1];
nn=a[1];
for (i=1; i<=n; i++)
{
ln=max(ln,a[i]);
nn=min(nn,a[i]);
}
cout<<ln<<" "<<nn;
return 0;
}
Var n,i,vtl,vtn,so max,min:integer;
Begin
Write('Nhap so luong so = ');readln(n);
vtl:=0;
vtn:=0;
max:=-32768;
min:=32767;
For i:=1 to n do
Begin
Write('Nhap vao so thu ',i);readln(so);
If so > max then
Begin
Max:=so;
vtl:=i;
End;
If so < min then
Begin
Min:=so;
vtn:=i;
End;
Writeln('So lon nhat la ',max,' tai vi tri thu ',i);
Write('So nho nhat la ',min,' tai vi tri thu ',i);
Readln;
End.
C++
#include<bits/stdc++.h>
using namespace std;
int main() {
const double pi = 3.14159;
double a,b,c;
cin >> a >> b >> c;
double sinc= sin(c*(pi/180));
cout << fixed << setprecision(2) << (a*b*sinc)/2 << endl;
return 0;
}
import math
def tinh_dien_tich_tam_giac(a, b, goc_xen):
goc_rad = math.radians(goc_xen)
dien_tich = 0.5 * a * b * math.sin(goc_rad)
return dien_tich
a = float(input("Nhập độ dài cạnh a: "))
b = float(input("Nhập độ dài cạnh b: "))
goc_xen = float(input("Nhập góc xen giữa hai cạnh (đơn vị độ): "))
dien_tich_tam_giac = tinh_dien_tich_tam_giac(a, b, goc_xen)
print("Diện tích tam giác là:", dien_tich_tam_giac)
program Tin_hoc;
uses crt;
var n,i,j,min:integer;
a: array[1..100] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
writeln('Nhap ',n,' phan tu:');
for i:= 1 to n do begin write('a[',i,']: '); readln(a[i]) end;
for i:= 1 to n do begin
min:=a[i];
If a[i] >0 then for j:= i to n do if a[j] < a[i] then min:= a[j];
write(min,' ') end;
for i:= 1 to n do begin
min:=a[i];
If a[i] <0 then for j:= i to n do if a[j] < a[i] then min:= a[j];
write(min,' ') end;
readln;
end.
Mik ko có thời gian nên chỉ làm thử câu a
Sai thì thôi nha
program hotrotinhoc;
var a: array[1..32000] of integer;
d,d1,a1,i,n: integer;
begin
write('a='); readln(a1);
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0; d1:=0;
for i:=1 to n do
begin
if a[i]>a1 then inc(d);
if a[i]<a1 then inc(d1);
end;
writeln('Co ',d,' phan tu lon hon ',a);
write('Co ',d1,' phan tu be hon ',a);
readln
end.
#include <bits/stdc++.h>
using namespace std;
long n,i,dem,t;
int main()
{
cin>>n;
dem=0;
t=0;
for (i=1; i<=n;i++)
if (n%i==0)
{
dem++;
t=t+i;
}
cout<<dem<<" "<<t;
return 0;
}
PROGRAM DIEN H TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien h tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien h S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.
* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)