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.

 

 

 

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

 

uses crt;

var a:array[1..200]of real;

i,n:integer;

tb:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

tb:=0;

for i:=1 to n do tb:=tb+a[i];

writeln(tb/n:4:2);

readln;

end.

uses crt;

var a:array[1..100]of real;

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

for i:=1 to n do

  if a[i]>=8 then inc(dem);

writeln(dem);

readln;

end.

uses crt;

var a,b,c,nn:integer;

begin

clrscr;

readln(a,b,c);

nn:=a;

if nn>b then nn:=b;

if nn>c then nn:=c;

writeln(nn);

readln;

end.

28 tháng 10 2021

program text;
uses crt;
var i:integer;
    a,b,c,ha,hb,hc,p,S:real;
    X,Y:array[1..3] of integer;
Begin
   clrscr;
   Writeln('Nhap toa do cac dinh A, B, C:');
   for i:= 1 to 3 do readln(X[i],Y[i]);
   a:=sqrt(sqr(X[2]-X[3])+sqr(Y[2]-Y[3]));
   b:=sqrt(sqr(X[1]-X[3])+sqr(Y[1]-Y[3]));
   c:=sqrt(sqr(X[2]-X[1])+sqr(Y[2]-Y[1]));
   p:= (a+b+c)/2;
   S:= sqrt(p*(p-a)*(p-b)*(p-c));
   Writeln('Dien tich cua tam giac la: ',S:0:4);
   ha:=2*S/a;
   hb:=2*S/b;
   hc:=2*S/c;
   writeln('ha = ',ha:0:2,' hb = ',hb:0:2,' hc = ',hc:0:2);
   readln;
end.

29 tháng 10 2021

uses crt;

var xa,ya,xb,yb,xc,yc,p,s,ab,bc,ac:real;

begin

clrscr;

readln(xa,ya,xb,yb,xc,yc);

ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));

ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));

bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));

p:=(ab+bc+ac)/2;

s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));

writeln(s:4:2);

readln;

end.

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a*a+b*b);

readln;

end.