Question

Hãy viết chương trình pascal thực hiện các công việc sau 

a ) Nhập vào 1 dãy số nguyên 

b ) Hiện thị dãy số vừa nhập 

c ) Tính trung bình công của dãy số đó 

d ) Hiện thị các số là bội của 3 

e ) Hiện thị các số lẻ là bội của 5 

f ) Tìm số lớn nhất có trong dãy 

g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy 

h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy 

Mai mình thi rồi , mong mọi người giúp e vs ạ 

 

Answer 1

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

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

s:longint;

tb:real;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tb:=s/n;

Write('Cac so vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

writeln('Trung binh cong cua day la ',tb:10:2);

Write('Cac so la boi cua 3 la ');

For i:=1 to n do

if a[i] mod 3 = 0 then write(a[i]:8);

writeln;

write('Cac so le la boi cua 5 la ');

for i:=1 to n do

if (a[i] mod 2 <> 0) and (a[i] mod 5 = 0) then

write(a[i]:8);

Writeln;

max:=a[1];

for i:=1 to n do

if a[i] > max then

begin

max:=a[i];

d:=i;

End;

Writeln('So lon nhat la ',max);

t:=a[1];

a[1]:=max;

a[d]:=t;

Write('Day sau khi dem so lon nhat ra truoc ');

For i:=1 to n do

write(a[i]:8)

writeln;

tb:=(a[8] + a[10])/2);

Write(Trung binh cong cua so thu 8 va thu 10 la ',tb:10:2);

Readln

End.