Question

[Nguyễn Phú Trọng]

BT: Viết chương trình nhập vào một dãy N số nguyên dương (N<=150), nhập vào số nguyên dương K.

1.      Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.

2.      Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt Min

3.      Đếm và tính tổng các số ở vị trí chẵn là bội của số K trong dãy vừa nhập  và đưa kết quả ra màn hình.

4.      Đếm và tính tổng các số ở vị trí lẻ là ước của số K trong dãy vừa nhập và đưa kết quả ra màn hình.

5.      Số a và số b là anh em của nhau nếu a = b + 1 hoặc b = a + 1. Đếm và tính tổng các số là anh em của K trong dãy vừa nhập  và đưa kết quả ra màn hình.

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

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

 n,i,max,min,dem,t,dem1,t1,dem2,t2,dem3,t3,dem4,t4,k: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];

for i:=1 to n do 

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

writeln('So lon nhat trong day la: ',max);

dem:=0;

t:=0;

for i:=1 to n do 

if max=a[i] then     

begin       

inc(dem);

t:=t+a[i];       

vtmax[dem]:=i;     

end;

if dem>1 then   

begin     

writeln('Tong cac so max la: ',t);     

writeln('Cac vi tri co so max la: ');     

for i:=1 to dem do       

write(vtmax[i]:4);   

end;

min:=a[1];

for i:=1 to n do 

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

writeln('So nho nhat trong day la: ',min);

dem1:=0;

t1:=0;

for i:=1 to n do 

if min=a[i] then     

begin       

inc(dem1);       

t1:=t1+a[i];       

vtmin[dem1]:=i;     

end;

if dem1>1 then   

begin     

writeln('Tong cac so min la: ',t1);     

writeln('Cac vi tri co so min la: ');     

for i:=1 to dem1 do       

write(vtmin[i]:4);   

end;

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

dem2:=0;

t2:=0;

for i:=1 to n do 

if (i mod 2=0) and (a[i] mod k=0) then     

begin       

dem2:=dem2+1;       

t2:=t2+a[i];     

end;

writeln('So phan tu o vi tri chan trong day la boi cua ',k,' la: ',dem2);

writeln('Tong cac so o vi tri chan trong day la boi cua ',k,' la: ',t2);

dem3:=0;

t3:=0;

for i:=1 to n do 

if (i mod 2=1) and (k mod a[i]=0) then     

begin       

inc(dem3);       

t3:=t3+a[i];     

end;

writeln('So phan tu o vi tri le trong day la uoc cua ',k,' la: ',dem3);

writeln('Tong cac so o vi tri le trong day la uoc cua ',k,' la: ',t3);

dem4:=0;

t4:=0;

for i:=1 to n do 

if (a[i]+k=1) or (a[i]=k+1) then     

begin       

inc(dem4);       

t4:=t4+a[i];     

end;

writeln('So phan tu la anh em cua ',k,' trong day la: ',dem4);

writeln('Tong cac phan tu la anh em cua ',k,' trong day la: ',t4);

readln;

end.