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,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.

 

 

 

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: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.

a: if (a=b) or (b=c) or (a=c) then writeln('Tam giac can');

b: if (a=c) and (b=c) then writeln('Tam giac deu');

c: if (x mod 2<>0) and (x mod 3=0) then writeln('x la so nguyen le va chia het cho 3');

Câu 4: 

fucntion tong(x:integer):integer;

var st:string;

d,i,n,y,t:integer;

begin

str(x,st);

d:=length(st);

t:=0;

for i:=1 to d do 

  begin

val(st[i],n,y);

t:=t+n;

end;

tong:=t;

end;

Câu 2: 

const fi='bai2.inp';

fo='bai2.out';

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

read(f1,a[i]);

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.