Nhập dãy A gồm N số thực (N<=100). Tìm GTNN và vị trí của nó.
(bằng Pc mn nhé, hộ e vs)
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.
4 tháng 11 2020
Program testt;
uses crt;
var n,i,d:integer;
a:array[1..1000] of Int64;
Begin
clrscr;
write('Nhap n:'); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']:'); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then inc(d);
writeln('So cac so nguyen duong trong day:',d);
readln;
End.
3 tháng 11 2020
uses crt;
var a,b,c:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) and (a>0) and (b>0) and (c>0) and (sqr(c)=sqr(a)+sqr(b)) then writeln('Day la ba canh trong mot tam giac vuong co ',c,' la canh huyen')
else writeln('Day khong la ba canh trong mot tam giac vuong co ',c,' la canh huyen');
readln;
end.
4 tháng 11 2020
Vậy là câu lệnh thôi hay là CT luôn bạn?
Nếu là câu lệnh thì:
if x+y<=1 then A:=2*x+3*y
else if x+y>1 then
begin
if y<=0 then A:=sqr(x)+y
else A:=x+y;
end;
KT
2
3 tháng 11 2020
#include <bits/stdc++.h>
using namespace std;
int a,b,c;
int main()
{
cin>>a>>b>>c;
if ((a+b>c) and (a+c>b) and (b+c>a)) {
double p=(a+b+c)/2;
cout<<"S="<<sqrt(p*(p-a)*(p-b)*(p-c));
}
else cout<<"Khong la ba canh tam giac";
return 0;
}
3 tháng 11 2020
Cho dễ nhìn hơn:
#include <bits/stdc++.h> using namespace std; int a,b,c; int main() { cin>>a>>b>>c; if ((a+b>c) and (a+c>b) and (b+c>a)) { double p=(a+b+c)/2; cout<<"S="<<sqrt(p*(p-a)*(p-b)*(p-c)); } else cout<<"Khong la ba canh tam giac"; return 0; }
3 tháng 11 2020
a)A:=2*cos(1-sqr(x))+3*sqrt(2-x)
b thì mình mới nghe luôn,cao nhân nào giúp đê
3 tháng 11 2020
ko biết ý câu b) là thế nào nhưng chắc là dạng boolean thôi
b)B:=(x>5) and (x<=-1)
mà cái này 100% luôn False rồi
3 tháng 11 2020
a) var x:char;
y:single;
(thay bằng real cũng được nhưng tùy máy mà nó là 4 hoặc 8 byte)
b)Số Byte:1+4=5
uses crt;
var a:array[1..100]of real;
min:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('GTNN=',min:4:2);
writeln('Vi tri cua no la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
readln;
end.