Những câu hỏi liên quan
Nguyễn Trần Hoàng
Xem chi tiết
Minh Lệ
2 tháng 3 2021 lúc 17:31

Program HOC24;

var i,n,d: integer;

t: real;

function nt(b: longint): boolean;

var j: longint;

begin

nt:=true;

if (b=2) or (b=3) then exit;

nt:=false;

if (b=1) or (b mod 2=0) or (b mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(b)) do

begin

if (b mod j=0) or (b mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do 

begin

write('a[',i,']='); readln(a[i]);

end;

t:=0; d:=0;

for i:=1 to n do if nt(a[i]) then

begin

t:=t+a[i];

d:=d+1;

end;

write('Trung binh cong cac so nguyen to trong day: ',t/d:1:2);

readln

end.

Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:38

Cách 2: 

uses crt;

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

i,n,t,dem,j,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

dem:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then 

begin

t:=t+a[i];

inc(dem);

end;

end;

writeln('Trung binh cong cac so nguyen to la: ',t/dem:4:2);

readln;

end.

Nguyễn Thị Vân
Xem chi tiết
Kiều Vũ Linh
28 tháng 4 2023 lúc 11:24

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

i,n,d:integer;

s:longint;

tbc:real;

begin

write('n = ');readln(n);

For i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

if a[i] mod 2 = 0 then d:=d+1;

end;

tbc:=s/n;

writel('Co ',d,' so chan');

write('Trung binh cong cua day so la ',tbc:10:2);

readln

end.

Khang Ngo
Xem chi tiết
Khang Ngo
20 tháng 4 2023 lúc 21:18

N=int(input(‘n=’))

A=[0]*n

For I in range(0,n):

A=int(input(a[‘+str(i+1)+’]=’))

S=s+a[i]

S1 =s/n

Print(s1)

Phạm Tuấn Kiệt
Xem chi tiết
Minh Lệ
2 tháng 5 2023 lúc 21:09

Program HOC24;

var d,i,n: integer;

t: real;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

d:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then 

begin

d:=d+1;

t:=t+a[i];

end;

t:=t/d;

writeln('Co ',d,' so chan trong mang');

writeln('Trung binh cong cac phan tu chan la: ',t:2:5);

write('Cac phan tu trong day theo chieu doc: ');

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

readln

end.

Nguyến Ngọc Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:52

uses crt;

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

i,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('Nhap diem cua ban thu ',i,':'); readln(a[i]);

end;

t:=0;

for i:=1 to 6 do 

  t:=t+a[i];

writeln('Tong diem trung binh la: ',t);

writeln('Diem trung binh cua day la: ',t/6:4:2);

readln;

end.

hoàng kim
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:25

Bài 1: 

uses crt;

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

i,n,min:integer;

begin

clrscr;

write('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(min);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:26

Bài 2: 

uses crt;

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

i,n,max:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Nguyễn Phan Thanh Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 9:40

uses crt;

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

i,n,t1,t2,dem1,dem2:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

dem1:=0;

t2:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

inc(dem1);

end

else begin

t2:=t2+a[i];

inc(dem2);

end;

end;

writeln('Trung binh cac so chan la: ',t1/dem1:4:2);

writeln('Trung binh cac so le la: ',t2/dem2:4:2);

readln;

end.

Leoumax
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2023 lúc 20:54

Bai 2:

uses crt;

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

i,n,t,nn:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

for i:=1 to n do

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

write(nn);

readln;

end.

Vũ hữu quyền
Xem chi tiết
nguyễn an phát
12 tháng 5 2021 lúc 14:41

program tinh_trung_binh_cong;

uses crt;

var i,n,max,min:integer

tbc: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;1= to n do

begin

if max<a[i] then max:=a[i];

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

end;

tbc:=(max+min)/2;

writeln(tbc);

readln;

end

Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:32

uses crt;

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

i,n,max,min: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:=1 to n do 

begin

if max<a[i] then max:=a[i];

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

end;

writeln((max+min)/2:4:2);

readln;

end.